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We hope you'll like our revision of the dBASE II 
manual. The response was so favorable to our first two-part 


Banual that we've kept the same structure. 


The first part was written by a user as he learned to 
operate his system. The results of his learning are in 
Section VI, a complete business accounting system that by 
this time has gotten fairly sophisticated. 


The second part of the manual was written by the author 
of the program, Wayne Ratliff, who understands dBASE II 
inside out. 


We recommend that you read (and work with) the first 
part of the manual to get an understanding of what dBASE II 
ean do, then use the second part of the manual as a 
reference while you generate your own programs. With this 
approach there shouldn't be any questions that you can't 
answer, but if you run into any problems, your dBASE II 
dealer has the professionai resources to help you. 


Thank you for buying dBASE II, and I hope you find this 


program as useful and exciting as thousands of other users 
have already. 


Sincerely, 


George Ta fi 
President. 


DBASE II ADDENDUN 


dBASE II is preconfigured for use on the Osborne 1 monitor. It 
cannot be reinatalled for a video monitor connected through the 
RS-232 port. 


The screen displays in this manual show only the information that 
you will see in the “window” of the Osborne 1 screen. To see the 
entire screen, use the control and arrow keys to move the screen. 
Pressing the control key and the back arrow key (entl-<-~-) 
displays the right portion of the screen. Pressing the control 
key and the left bracket key (enti-[) moves the screen back to 
its original position. 
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Introduction 


GBASE II is a database management tool that allows easy 
manipulation of small and medium sized databases using English- 
like commands. With dBASE II you can: 


* Create complete database systems, 


* Easily add, delete, edit, display and print data from 
your database, with a minimum of data duplication on file. 


* Gain a large measure of program/data independence, so that 
when you change your data your don't have to change your 
programs, and vice-versa, 


* Generate reports from one or more databases, automatically 
do multiplication, division, sub-totals, totals and other 
data manipulation every time you use then. 


* Use the full-screen editing capability to set up a screen 
format, so that you see exactly what you're going to get, 
and enter data by simply "filling in the blanks." 


dBASE II is an extremely powerful system. To get the most out 
of it, please take the time to read the instructions before you 
start using it. The time will be well spent, 


Typographic conventions used in this manual: 


Lowercase in the screen representations indicates material that 
you type in. 


Uppercase in the screen representations indicates the dBASE II 
prompts and responses. In text, uppercase is used for dBASE II 
commands. 


Commands you are to type are enclosed between carets (""") in the 
text of this manual. For example, “CREATE” would mean you are to 
type CREATE. Occasionally they are used in the screen 
representations if needed for clarity. DO NOT TYPE THE ~ 
SYMBOLS. 


{...-] square brackets are used to indicate parts of a dBASE [II 
command that are optional. 


<.2.> bracketed portions of a dBASE II command that are to be 
filled in with real information. E.g.: <filename> means the name 
of a file is to be inserted. They are also used in text to 
bracket field names and file names, 


<return> and <enter> mean press the carriage return. DO NOT TYPE 
THESE WORDS. 


System requirements 


The Osborne-supplied version of dBASE II is correctly configured 


for use with the Osborne 1 computer. 


It is also useful to have a printer available for use with dBASE 


II. 


dBASE II specifications 


Characters per record 1000 max 

Fields per record 32 max 
Characters per field 254 max 
Largest number 41.8 x 10<63> approx 
Smallest number +1 x 10¢-63> approx 
Numeric accuracy 10 digits 
Character string length 254 characters 
Command line length 254 characters 
Report header length 254 characters 


Index key length 100 
Expressiions in SUM command 5 


characters 
max 


max 
max 
max 
max 


* 
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Your dBASE II program comes with two diskettes: the diskette 
containing the program (which we will called the dBASE diskette) 
and a diskette with some sample files (which we will call the 
sample file diskette). The dBASE diskette has a serial number on 
it and the sample file diskette is labelled "SAMPLES." 


Before you begin to use your software purchase, you should 
perform the following steps: 


For single density users: 


1. Make a copy of the diskettes we provide by using the COPY 
program supplied with your Osborne 1. Be sure to label the 


new diskettes you create. Store the originals in a safe 
place. 
2. Use SYSGEN, as described in the Osborne 1 User's Guide, to 


place a copy of CP/M on the “system tracks” of the new 
diskettes you created in step 1. To do so, you'd put your 
CP/M System diskette in drive A and the new diskette in 
drive B. 


3. While you've got the CP/M System diskette in drive A, use 
the SETUP program to configure the CP/M you just placed on 
your new diskette for the printer you have, and for the 
necessary options for the package. 


For this program, the settings to use are as follows: 


PRINTER: your choice, as appropriate 
BAUD RATE: your choice, as appropriate 
AUTO SCROLL: ON 

SCREEN SIZE: 128 

ARROW KEYS: CP/M 


FUNCTION KEYS: your choice, as appropriate 


You MUST perform this step in order for your new program to 
function correctly. 


4. Your new program is ready to use. Be sure to read the 
entire user manual provided to ensure that you are fully 
aware of the features and functions of the program. 


For double density users: 


1. Format a blank, double density diskette by using the COPY 


program supplied with your Osborne 1. Place this diskette 
in drive B. 


Ze Insert your CP/M System diskette in drive A, and invoke PIP 
by typing its name. Place the diskette you received with 
this package in drive A when the asterisk appears and type: 


Brea:*.* <er> 


Insert the next diskette into the A drive when the asterisk 
reappears, and type the above instruction again. 


Be Use SYSGEN and SETUP as described in the single density 
instructions, above. 


We congratulate you on your purchase of Osborne Approved 
Software, and hope you enjoy using it. If you should have any 
problems, please contact your local Osborne dealer, or write to: 


Software Support 

Osborne Computer Corporation 
26500 Corporate Avenue 
Hayward, CA 94545 


Registered owners of Osborne Approved Software packages will be 
mailed regular update notices, which will include documentation 
errata notices, bug fixes, and information about odtaining 
subsequent releases of the product you purchased. The only way 
to register your ownership is to fill out and return the license 
agreement that accompanies the software package. 


You are now ready to begin using dBASE II. 


The dBASE program can be started in two ways. The first way is to 
automatically load the program be pressing RETURN when the 
computer displays the message “Put disk in drive A and press 
RETURN." The other is to type DBASE next to the A prompt (A>) 
and press RETURN. 
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A prompt line asks for the data, If you enter a date, this will 
be recorded in your files as the last access every time you add 
to or delete from the file, and can be useful for keeping track 
of updates. If you want to ignore it, just press RETURN. 


GBASE If loads into memory, displays a sign-on message, and shows 


the prompt dot (.) to indicate that it is ready to accept 
commands. 


To show you how powerful and easy to use dBASE II actually is, 


the first thing we'll do is create a database and enter data into 
it. 


It will take only a few minutes. 


11 


ZIP 
Version 1.5 


Manual Revision 1.B 
12/10/83 


Licensed for use on the Osborne 1 


OSBORNE COMPUTER CORPORATION 
Hayward, California 


diZ 


r4| 


COPYRIGHT 


Copyright (C) 1982 by Hal Pawluk. All rights reserved worldwide. 
No part of this publication may be reproduced, transmitted, 
transcribed, stored in a retrieval system, or transluted into any 
language, in any form or by any means without the prior written 
consent of Ashton-Tate, 9929 West Jefferson Boulevard, Culver 
City, California 90230. 


TRADBRARK 


ZIP is a trademark of Ashton-Tate. CP/M is a trademark of 
Digital Research Inc. WordStar is a trademark of MicroPro 
International. Osborne 1 is a trademark of Osborne Computer 
Corporation. 


DISCLAIMER 


Osborne Computer Corporation and Ashton-Tate make no 
representations or warranties with respect to the contents hereof 
and specifically disclaim any implied warranties of 
merchantibility or fitness for any particular purpose. Further 
Osborne Computer Corporation and Ashton-Tate reserve the right to 
revise this publication and the product it describes and to 
otherwise make changes to the product without obligation of 
Osborne Computer Corporation or Ashton-Tate to notify any person 
or organization of such revision or changes. 


© 


Oo 


Table of Contents 


© cvvwrer 1s Configuring Diskettes for Usecsucnccnccnacnccae 


CHAPTER 2: Now dBASE II Really has ZIP. ccccccccccccccccsae 


CHAPTER 3: Installing ZiPscccccccnccencnacnccccncccnsennes 
CHAPTER 4: What ZIP Does, in a Nutshell. wseneerenncecece 
CHAPTER 5: Working With ZIP. ccc cw ccc eee w ee meee en ences 
CHAPTER 6: Never Say @..SAY..GET Againencncccccccccccacace 
CHAPTER 7: Embedding dBASE II Coomands in Your Form Files. 
CHAPTER 8: Othee File Types, Editingescceneeeennencsccccen 
CHAPTER 9: ZIP Commands ccccnccccncccnccacecnccannesaccesen 
For dBASE It s 2. sc ew th BH EH HR Be ee ee ee 


Dynamic values . 2 « oe © ce ce we wee eee wes stew 
Other ZIP commands and symbols . . .......2.46--. 


o 


19 
23 
25 
25 


25 
26 


CONFIGURING DISKETTES FOR USE 


Before you begin to use your software purchase, you should 
perform the following steps: 


For single density users: 


1. 


Make a copy of the diskette we provide by using the COPY 
program supplied with your Osborne 1. Be sure to label the 
new diskettes you create. Store the originals in a_ safe 
place. 


Use SYSGEN, as described in the Osborne 1 User Guide, to 
place a copy of CP/M on the “system tracks" of the new 
diskettes you created in step 1. To do so, you'd put your 
CP/M System diskette in drive A and the new diskette in 
drive B. 


While you've got the CP/M System diskette in drive A, use 
the SETUP program to configure the CP/M you just placed on 
your new diskette for the printer you have, and for the 
necessary options for the package. 


For this program, the settings to use are as follows: 


PRINTER: your choice, as appropriate 
BAUD RATE: your choice, as appropriate 
AUTO SCROLL: ON 

SCREEN SIZE: 128 

ARROW KEYS: CP/M 

FUNCTION KEYS: your choice, as appropriate 


You MUST perform this step for your new program to function 
correctly. 


Your new program is ready to use. Be sure to read the 
entire user manual provided to ensure that you are fully 
aware of the features and functions of the program. 


For double density users: 


1. 


Format a blank, double density diskette by using the COPY 
program supplied with your Osborne 1. Place this diskette 
in drive 8. 


Insert your CP/M System diskette in drive A, and invoke PIP 
by typing its name. Place the diskette you received with 
this package in drive A when the asterisk appears and type: 


BrtArx.* 


and press RETURN. 


3. Use SYSGEN and SETUP as described in the single density 
instructions, above. 


We congratulate you on your purchase of Osborne Approved 
Software, and hope you enjoy using it. If you should have any 
problems, please contact your local Osborne dealer, or write to: 


Acquisitions Software Support 
Osborne Computer Corporation 
26500 Corporate Avenue 
Hayward, CA 94545 


Registered owners of Osborne Approved Software packages will be 
mailed regular update notices, which will include documentation 
errata notices, bug fixes, and information about obtaining 
subsequent releases of the product you purchased. The only way 
to register your ownership is to fill out and return the License 
agreement that accompanies the software package. 


NOW dBASE II REALLY HAS ZIP 


#) dBASE II has been the most powerful, easiest ‘to use relational 
database management system for a microcomputer since the day it 
was introduced. Now it's even more so, because we've included a 
program called ZIP. 


I think you'll Like the way ZIP simplifies setting up screens and 
output forms in your programs. ZIP's key features are Listed 
below. , 


* You can prepare output forms for your printer as well as 
input formats for your screen on your Osborne 1, because ZIP 
handles up to 88 Lines. 


* ZIP creates running code automatically. It writes READ 
statements at the end of every file that uses GET'S and 
after every 64 GET's in a longer file; validates variable 
names; writes .fMT files; and writes .CMD files, including 
ERASE or SET. FORMAT TO PRINT/SCREEN, SET MARGIN TO xx, and 
RETURN statements where needed. 


* You can embed dBASE II commands in your form files sand save 
both form and function with the ZIP editing capabilities. 


* You can use any ASCII files. If you have any forms prepared 
with a text editor, you can load them (Cup to 88 Lines) and 
have ZIP write the code for you. 


* The ZIP Talker, a Line at the bottom of your screen, tells 
you which row and column your cursor is on so that you can 
set your format locations quickly and easily. It also 
provides prompts during a ZIP session. 


* with ZIP, you can dynamically change your Horizontal and 
Vertical Markers, Tab Spacing, Page Length, and Printer 
Hargin while working on a form or screen format. 


* Horizontal and Vertical Markers both draw and erase Lines, 
making it easy to create boxes and draw or erase entire rows 
or columns. 


* .- Operation is faster because there are no control keys to 
press. Your keyboard works as it always did: RETURN, TAB, 
and the arrow keys do exactly what you expect them to do. 


* You have access to the defaults, so you can set ZIP up the 


. way you want it. 


Oo INSTALLING ZIP 


ZIP comes preinstalled for the Osborne 1. However, the 
installation program also allows you to change the defaults for 
ZLIP"s command abbreviations and symbols. If, after working with 
LIP, you decide to change any of these symbols, follow the 
instructions below. 


Place your copy of ZIP in drive A, press the RESET button and 
press RETURN. When the ZIP Help screen appears, type /@. This 
will exit you from the 21P program and return you to CP/M. When 
the A prompt (A>) appears, type ZIPIN and press RETURN. The 
following will appear on your screen: 


When you press a key, the presently installed values will 
listed. The installed values for the Osborne 1 appear below. 
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When you type a number and press RETURN, ZIPIN will prompt you 
for the new value. However, this screen shows you the correct 
installed ZIP values for the Osborne 1. There is no reason to 


change any of these values, and changing them may cause you to 
have problems with your program. If you alter any value by 
mistake and find that it causes problems in the program, 
reinstall ZIP referring to the correct values on the screen 
above. 


Again, we recommend that you leave these installed values as you 
find them. 


When you press RETURN, ZIPIN will allow you to change the dynamic 
values for the vertical marker, horizontal marker, tabs, and 
printer margin. These values can also be temporarily changed 
during a ZIP session. The following screen will appear: 


If you want to change the default. value for any of these 
settings, press C. The following prompt will appear: 


Enter L>etter to change or <Return>. 


Press the Letter associated with the setting you want to change 
(V, H, TT, or M). ZIPIN will then ask you for the new value. for 
example, if you wanted to change the <V>ertical marker to an 
asterisk you would first press € to indicate that you wanted to 
make a change. You would then press V to indicate the setting you 
wanted to change. ZIPIN would then ask for the "New vertical 
marker" and you would press *. The screen would then display the 
new settings. 


Unlike the installed values on the first screen, there is no harm 
in changing these default values. 


When you have finished installing the new settings, press F to go 
on to the next screen. 


The final screen 


defaults and presents the following 


in ZIPIN allows you to change the ZIP. 


command 
informations 


To change any of the command abbreviations or symbols, 
will request you to "Type the symbol or number you want to 
Press the symbol you want to change. 

type the replacement." Press the symbol you want 


ZIPIN 
change:". 

print “Now 
replace the original symbol. 
As an example, 
indicate that 

symbol you want 
replacement, press \. 
each preceded by \ 


NOTE: The square brackets=-C]--are used as the string 


in the dBASE II command files 
be entered as new symbols. 


You'll 
to "\" 
type) that you won't normally 
or printer forms you create. 


When you have finished making 
reinstall the ZIP program with 


NOTE: 00 NOT set two commands 
it totally confuses ZIP. If 
recover by running through the 


to change the command marker to \, 
you want to change a command. 
to change press /. 
The screen will display the ZIP commands, 
instead of /. 


probably want to change the "/" command 
or some other character 


press C. 


ZIPIN will then 
to 


press € to 
asked which 
asks for the 


When 
When ZIPIN 


delimiters 
that ZIP writes for you and cannot 


lead-in character 
CLowercase to make it easier to 
want to use as part of the screen 


changes, press F and ZIPIN will 


the changes you have made. 


or symbols to the same character: 
you do so inadvertently, you can 
installation procedure again. 


WHEN THE INSTALLATION IS COMPLETE, 
ZIPIN IS NO LONGER NEEDED ON YOUR 


WORK DISK. 


If you want to alter the default settings again after 


experience 


with the program, you can always run ZIPIN again. 


* SAMPLE.CMD 

SET FORMAT TO PRINT 

SET MARGIN TO 0 

@ 0,23 SAY "4---—-—~—--——-4" 

@ 1,23 SAY SAMPLE =!" 

@ 2,23 SAY Sneed 

a 7, 5 SAY teerneraneeaeeenaa” 
a 

a 


8, 7 SAY “SAMPLE INVOICE 

9, S SAY “statseesncereneaneen" 
a 12, 5 SAY "INVOICE 
@ 12,13 SAY invnabe 
@ 12,40 SAY “DATE 
SET FORMAT TO SCREEN 
a23, 79 sav" * 
a 23, 0 SAY “date” GET date 
READ 
SET FORMAT TO PRINT 
@ 15, 6 SAY “CLIENT™ 
@ 15,13 SAY client 
a 17, 0 say * 
9 17,50 SAY *. 
USE B:GETCOST 
STORE O TO Sum 
DO WHILE NOT. EOF 
2 Job:Mebr,descrip, Taxable 
Sum = Sun + Taxable 
nono 
a 35, 0 say * 
a 35,50 SAY * 
@ 37,62 SAY “TOTAL BILLING” 
@ 37,58 SAY Sun 
B 37,76 SAY "37,79" 
SET FORMAT TO SCREEN 
a 23, 79 sav” 
RETURN 


eeneneeneseecaecee” 


WHAT ZIP DOES, IN A NUTSHELL 


ZIP weote the command file (a file with a .CMD extension) on the 
facing page from the input screens above it. 


The box was created using commands that both draw and erase the 
horizontal and vertical markers, automatically inserting "+" 
wherever the two cross. Both marker symbols can be changed while 
creating a form or printout. 


The text, variable names (preceded by 2 or #), and embedded 
commands Cin square brackets) were simply typed in, using no 
control functions. When the form Looked Like the output that was 
wanted, the operator typed /S and ZIP went to work. 


ZIP set the format to PRINT because the operator answered YES 
when asked if the form was to be printed. It also set the printer 
margin for the value the operator requested. 


ZIP then scanned the form and automatically wrote in all the @ 
<Row,Colusn> SAY <text> commands. Wherever it came across a 
DISPLAY symbol (a), it wrote @ <Row,Column> SAY <variable>. 


ZIP also wrote a GET command, with code to position the cursor on 
the Bottom Line of the terminal and show the name of the variable 
when the .CMD file is run. 


In this example, the operator also embedded several dBASE II 
commands, enclosed in square brackets, making the SAMPLE.CMD file 
a combination of form and function. 


ZIP then tidied up the file by writing SET FORMAT TO SCREEN and 
RETURN statements, placing the cursor in the lower tefthand 
corner after the format is done. This file can now be used in any 
other dBASE II command file by adding DO Sample in that other 
file. 


The screen on the facing page could also have been saved as a 
format file (a file with a .FMT extension). 


For a format file, ZIP would have written in only the 4..SAY 
statements and any items enclosed within square brackets. The SET 
statements would not have been included, and the first comments 
would have read * SAMPLE.FMT. 


Remember that only comments may be embedded in format files. ZIP 
does not check whether the embedded statements are correct. 


We'll show you how easily this can be done starting on the next 
page. 


WORKING WITH ZIP 


Put the diskette Labelled dBASE II ZIP in drive A and press 
RETURN. You may also start ZIP from the CP/M A prompt by typing 
ZIP and pressing RETURN. 


ZIP starts by showing you the Help screen as a reminder of the 
commands and the system defaults. 


For now, it doesn't matter if you haven't memorized all the 
commands. You can check them while working with ZIP by pressing 
the command key twice (//). (As described earlier, this command 
symbol can be changed with the last screen in the ZIPIN program.) 
Press RETURN to continue. 


The screen will clear and the ZIP Talker (Con the bottom line of 
your screen) will say: “<NEW> or <OLD> file (Q@ to Quit)?" 


ZIP won't start working until you tell it whether you want to 
create a new file (by pressing N) or update an old file (by 
pressing the letter 0). You can also change your mind and exit 
back to your operating system by pressing @. Since we do not have 
a previously written file to load, press N. 


The ZIP Talker now asks you to name the new file by saying "FILE 
NAME (drive opt):” 


If you do not specify the B drive (by typing 8:), files will be 
saved to and retrieved from the A drive. CP/M requires that a 
colon appear only after a drive identifier Ci.e., A: or B:). If 
you've entered a colon in some other position in the filename, 
ZIP will intercept the name and ask you to re-enter it. 


Filenames plus their extensions may be up to twelve characters 
long (plus 2 characters for the disk drive) and may contain the 
following characters: A-Z a-z 0123456789 .Sa#/ 


ZIP will save an image of your work file as <name>.ZIP and will 
write command files as <name>.CMD. 


Alphabetic characters may be entered in uppercase or Lowercase. 
ZIP converts them all to uppercase in filenames. 


After you've entered the filename and pressed RETURN, the cursor 
will move to 0,0 and the ZIP Talker will tell you where the 
cursor is. 


Hold down the RETURN key and the cursor will drop Line by Line 


until it reaches the bottom of the screen, with the Talker 
tracking it every step. 
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Now, hold down the up arrow (f) and the cursor will start 
climbing Line by Line. 


But there's a much faster way to get to the top. Type these three 
commands (uppercase or lowercase): 


/T 
7B 
i) 


These three commands can quickly move you around the screen. The 
Top (/T) and Bottom (/8) commands stay in the same column to make 
it easier to align your entries. 


The Middle command (/M) moves the cursor to the middle of a row 
to .make it easier to center headings. If the cursor is at the 
middle of the row, /M moves the cursor to the middle of the 
screen. 


Now types 


/<tab> (press the TAB key) 
/<tab> 


This first moves you to the right edge, then switches from edge 
to edge every time you type it again. 


Notice that the ZIP Talker is with you all the way. When you 
pressed the command marker, it even let you know that it was 
waiting for your instructions by displaying the marker on the 
bottom Line of the screen. 


Whenever you start a new session with ZIP, tab spacing is 
automatically set at 5 and page length is set at 23. Tab spacing 
and page length can be changed during a ZIP session. Type these 
three commands: 


4/ (wait for the Help screen before continuing) 
T (command marker is not used here) 
19 (type new setting and press RETURN) 


Press RETURN to get back to your work screen, then press TAB. The 
ZIP Talker shows that tabs are now set at multiples of 19 across 
the screen. You can change this spacing as often as you want 
during a ZIP session by going back to the Help screen. 


Page length can be modified in the same manner during a ZIP 
session. From _the Help screen, you can select any page length 
from 23 (the ZIP minimum) to 88 Lines. This allows you to prepare 
legal forms on your Osborne 1, or to print with as many as 8 
Lines per inch on regular paper. 


NOTE: If you shorten the page Length during a ZIP session, any 


information on the lines beyond the end of the new page will be 
erased. PERMANENTLY. 
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“Now position the cursor at the top left corner of the screen 
(press RETURN and type /T) and type: 


Press TAB twice 
Vv 
Press TAB twice 
‘Vv 
/H 


The same commands both draw and erase the horizontal and vertical 
Lines, automatically drawing and erasing a "+" symbol where the 
two lines cross. This makes it easier for you to "paint" your 
screens and forms exactly the way you want them. 


If the cursor is on a horizontal marker symbol when you enter the 
horizontal command (/H), ZIP erases the remainder of the Line to 
the right. . 


If the cursor is on a "+" symbol, ZIP can respond in different 
ways: 


If there are characters to the left of the "+" symbol, the 
plus sign wilt be left as is, but the remainder of the 
horizontal Line to the right will be erased. 


If there are no characters immediately to the Left of the 
"+" symbol and the next symbol to the right is not another 
"+" symbol, the horizontal Line will be erased and the "+" 
symbol will be changed a vertical marker. 


If the “+" symbol is surrounded by other "+" symbols, they 
will all be left intact, and only the horizontal line beyond 
the "+" symbol farthest to the right will be erased. In this 
case, ZIP will not redraw this portion of the horizontal 
Line until you move the cursor to the right=<most "+" symbol. 


The vertical marker command works in the same manner. 


Both commands are a great deal easier to use than this may sound 
because ZIP makes the decisions. 


NOTE: Using a marker command twice (/H,/H or /V,/V) is a quick 
way to erase an entire row or column. 


Now type these commands 


// (wait for the Help screen) 
Pp (to change page Length) 

40 (new value is 40 Lines) 

v (to change vertical marker) 
* (new vertical marker) 
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This changes the page Length to 40 lines and the vertical marker i) 
to an asterisk. Press RETURN to return to the ZIP work screen. 


Press RETURN to drop down a few Lines and type /H then /V. 
Instead of erasing the vertical ‘Line, the last command changed 
all the symbols to asterisks. This is because it was not on top 
of the current vertical marker. 

Now type: 


/N (wait for the new screen) 
48 


This places you at the bottom of the next screen, with the ZIP 
Talker saying “Row 39, Col O” Cour page Length is 40 Lines 
nuabered 0 to 39). Notice that the Last vertical Line you drew 
goes all the way to the bottom of the page, even though it was 
off your screen. 
With longer screens, you may want to use: 
sf to position you within the FIRST SCREEN of your form, 
with Row O at the top of the screen; or i) 
vu to position you within the LAST SCREEN of your form, 
with the Last row at the bottom of the screen. 
To save what you have entered, type /S. 
The ZIP Talker responds with 
"SAVE <name>: (Cad, Fat, Stop)?” 


If you press any key except C or F, ZIP will put you back into 
the work file. 


If you press C or F, ZIP asks 
“<name>: Change name (Y or N)?" 


Pressing any key except uppercase or lowercase Y is equivalent to 
NO. 


If you answer Y, ZIP asks you for the new name. You can also 
specify a different disk drive as part of the new name to make 
your backups on a different drive. Or you can press any other key 
and ZIP uses the name you've been working with. 

Nest, ZIP asks: 


<name>: Print format (CY or N)? 
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ZIP first saves an image of the screen or printer format you have 
oO created. The Talker tells you what it is doing by saying: 


Writing screen image <nase>.ZIP 


When jit has saved the screen image, ZIP writes a printable. copy 
of it, too, with the Talker saying: 


Writing printable file <name>.ZPR 


When writing a dBASE II command file, ZIP first inserts the 
filename as a comment Ci.e., * <name>.CMD or ® <name>.FRT). 


If the file is a .CMD file type, it then writes 


ERASE Cif it is a screen format) 
or 


SET FORMAT TO PRINT 
SET MARGIN TO xx Cif it is a form to be printed) 


For both .CMD and .FMT file types, ZIP writes all the a@..SAY and 
GET statements, and inserts a READ statement into your file after 
every 64 GET statements. The ZIP Talker tells you which rows) 
this happens on. 


ZIP finishes by writing a READ statement at the end of screen 
input files, or SET FORMAT TO SCREEN for print files, just 
before the final RETURN statement at the end of the file. 


After ZIP saves your work file and writes the program, you will 
still have the original screen and can modify it, then save it as 
another filename. 
If ZIP finds a GET in a print form, the Talker Says; 

"GET" in PRINTOUT: Okay (Y or ND? 


and waits for your response. If you used the GET deliberately 
press Y and ZIP will continue writing the <name>.cMD file. 


If the GET was accidental, press N. ZIP will then terminate the 
position your cursor on the offending GET symbol so that you can 
either change it or remove it. 


NOTE: You will have to save your file again (by typing /S), since 
it was aborted, but the seconds it takes with ZIP could save you 
a great deal of time on your applications programs. 


@) zip validates your variable names to make certain that the 
command files it writes will run in your dBASE Il programs. 
If you inadvertently started a variable name with a character 
that dBASE II would not accept (any character other than the 
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alphabet, digits, or a colon), ZIP tells you by printing: 
NO VARIABLE -- continue (Y or ND? 


Pressing any key other than Y (uppercase or lowercase) terminates 
the /Save command and positions your cursor on the error in your 
work file for a quick fix. 


The ZIP Talker also tells you if you start or end a variable name 
with a colon by printing: 


HANGING COLON: continue CY or N)? 


Again, pressing any key other than Y terminates your /Save and 
positions your cursor at the error within the screen file so that 
you can fix it quickly and easily, then save the file again. 


Usually you'll find that there is no need to even Look at the 
files that ZIP writes unless you want to add code for error 
trapping, etc. Just go into your main application program, add: 


DO <name> 
or 
SET FORMAT TO <name> 


then run it. If your program provides values for the variables 
you entered with ZIP, you'll get exactly the screen or form you 
wanted. 


on a new file 
Y 


To start s 
when ZIP asks: 


then press 


first erase the old one by typing /E, 


Erase everything CY or N)? 


ZIP then asks you whether you want a new or old file. If you want 
to stop now type @ when the ZIP Talker says: 


<NEW> or <OLD> file (@ to QUIT)? 
then answer Y when ZIP asks: 
QUIT to system (Yes or No)? 
You can also quit while working in a screen by typing /@ 


Once again, ZIP confirms that you want to quit before erasing 
everything and closing the files. 


When you quit, if the file was longer than your screen, ZIP gives 


you one last, fast look at the entire file, then returns you to 
your operating system. 
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NEVER SAY @..SAY..GET AGAIN 


Now Let's use ZIP to write some @..SAY's and GET’s. It's going to 
be a lot easier than it ever was. 


You might want to start on one of your real forms or input 
screens because you'll probably have a file that you can run when 
you've finished this section. 


ZIP automatically sets the page length at a single screen 
whenever you start working on a new file. When you load a 
previously created file, ZIP sets the page length at the length 
of that file. 


If this file is for an output form to be printed, set your page 
Length at any value up to 88. 


The row and column readout on the ZIP Talker will then help you 
position your headings, dates, comments, and variables exactly 
where you want ther. 


To position a variable, type @ (to SAY a variable) or # (to GET a 
variable) where you want your field to start. 


Now type the name of the variable. You do not need an end-of-name 
character, as ZIP knows the rules for dBASE IJ variable names. 
ZIP ends the name after it has read 10 acceptable characters, or 
when it comes across a character that dBASE 11 does not allow 
(including a space). If your variable name is 10 characters tong, 
you can use the next position, with no separator between the 
variable name and the rest of the Line. 


These are the characters that dBASE II will accept in a variable 
name: A-Z, a-z, 0123456789 and an embedded colon. 


ZIP will let you type a colon in any position for a variable 
name, but will intercept an incorrect entry when writing the 
<name>.CMD file and will give you a chance to correct it (see 
earlier Save section). 


If a variable name is entered with a character that dBASE II does 
not allow, ZIP truncates the name and assumes that you wanted 


your next message or heading to start with the unecceptable 
character. 


Now check the Help screen again by typing the command key twice 
(//). You'll probably find the /D, /1, /K, and /A commands useful 
before you're finished with your form. You may also want to use 
/€ to center text ona line. 
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EMBEDDING dBASE II COMMANDS IN YOUR FORM FILES 


To help reduce the need for an external editor, ZIP allows you to 
embed as many dBASE II commands as you can fit around your forms. 


However, these rules must be followed: 


Te Square brackets-~CJ]--must enclose the command. 

2. Both brackets must be on a single Line (use the dBASE II 
semicolon for longer commands). 

3. Bracketed commands must be separated from text and other 
bracketed commands. 


To separate them, use a single command character just in front of 
the left bracket, or two command characters (aa, #H#, OH, or Ha). 
Sracketed commands do not need to be separated from preceding 
variable names. 


ZIP wrote the command file on the next page from the input shown 
below (Lines 35 and 37 were off-screen). The rules are 
illustrated on the screens, 


ee eee 


abet somlcismnfearaxase 


* B.CMD 

SET FORMAT TO PRINT 

SET MARGIN TO O 

RESTORE FROM B: CONSTANT 

a 7, 5 SAY Sy IO IOI IIE 
@ 8, 7 SAY "SAMPLE INVOICE" 
ANOTHER dBASE II COMMAND 

a 9, 5 SAY Set KEIR KARE RE RT 
@ 12, 5 SAY "INVOICE" 

@ 12,13 SAY invnmbr 

SAVE TO A 

@ 12,42 SAY "DATE" 

@ 12,47 SAY date 

DO Datetest 

a 15, 6 SAY "CLIENT" 

@ 15,13 SAY client 

Do Verify 
a 17, 0 SAY 
@ 17,50 SAY 
USE B:GETCOST 

STORE 0 TO Sum 

DO WHILE .NOT. EOF 

2 Job:Nmbr,Descrip, Taxable 
Sum = Sum + Taxable 

ENDDO 

a@ 35, 0 SAY “=--- 
@ 35,50 SAY "=--- 
@ 37,41 SAY “TOTAL BILLING" 
@ 37,57 SAY Sum 

SET FORMAT TO SCREEN 
RETURN 
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QUESTION: How do you display the results of expressions, or sho 
several fields close together when their names cover th 
PAR AAR RY ghose ogee = at 
positions where you want them? 


o 


ANSWER: If being able to embed dBASE II commands in your file 
doesn't help, this is one case where you'll have to edit the 
<name>.CMD file that ZIP writes. 


But ZIP will make it easier, because it can handle as many as 40 
GET and SAY symbols in an 80-character Line. 


One way to use this facility #s to enter onty the symbols where 
you want your short fields to be displayed or entered. Then, when 
the ZIP Talker says "NO VARTABLE -- continue CY or N)?", press Y. 


The advantage of doing it this way is that it will be easier to 
find the places to enter the expressions or variable names 
because ZIP will have written: 


a@ xx,yy SAY (remainder of Line is biank) 
or 
a xx,yy GET (remainder of Line is blank) 


in the <name>.CMD file. 


The disadvantage is that you'll get a lot of Tatk Cand prompts to 
respond to) from ZIP. To prevent this, you might prefer to enter 
single digits or letters in ZIP, then replace these with the 
proper names and expressions by editing the <name>.CMD file. 


When you're done with your screen or form, save the file by 
typing /S, then type /@ to quit. 


WARNING: 


Don't touch the screen image file <name>.ZIP. It's in 
ASCII code, so you can use your CP/M TYPE command to 
look at it, but because of the way it is saved, a text 
editor will probably destroy it. Use control-S (hold 
down the key labelled CTRL while you press the S_ key) 
to stop and start the scrolling. 


If you want a hardcopy of the screen, use WordStar to print out 
the <name>.ZPR file, or press control-P (hold down the key 
labelled CTRL while you press the P key) and use the CP/M TYPE 
command. 


If you want to, you can use your text editor to look at the dBASE 
IL command file <name>.CMD or <name>.FMT that ZIP wrote. You may 
only want to use the CP/M TYPE command for a quick check before 
running it. 


Get dBASE up and make sure that there are values for the 


variables you wrote into the form, then type: DO <name> or SET 
FORMAT TO <name> 


21 


OTHER FILE TYPES, EDITING 


Normally, ZIP works with a <name>.ZIP file that is one continuous 
long string, an image of the format you created in the memory of 
the computer. 


The Limitation of a <name>.ZIP file is that it can only be edited 
with ZIP or with great difficulty. 


To get around this, ZIP will also load any standard ASCII file. 
To do so, simply specify an extension in the file name, but 00 
NOT USE .ZIP as the extension for an ASCII file. 


One way to use this feature is to load screens that you might 
have created using WordStar, Magic Wand or some other text 
editor. The Limitations are that you should end each Line should 
by pressing RETURN and that you are Limited to 88 Lines. 


Another way to use this is to edit the <name>.CMD files that ZIP 
writes. These are usually short and fit within the 88 Lines 
available. 


The embedded commands that ZIP allows are useful, but sometimes 
(such as in some Loops) may be performed in the “wrong” order. 


To solve this, I first use ZIP to set up my report format, Save 
it, then load the <mame>.CMD file. Now, I use the /A command to 
add as many blank rows as I need for the 00 WHILE...ENDDO loop to 
access my database and print the body of the report, usually only 
two or three additional Lines. 


I then save it again, and the dBASE II code for the loop is in 
the proper place. 


You'll probably find other applications for this facility. 
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PAGE LENGTH can be dynamically set at any value from a single 
screen to 88 lines while working with ZIP. 


PRINTER MARGIN may be set from 0 to 132. 


Other ZIP Commands and Symbols 


/ is the Command Marker, but should be installed as "\" or 
some other character that you will not want to use as text 
in your screens and output forms. 


4l pressing the Command Marker twice while working with ZIP 
displays a summary of the commands and lets you modify the 
Horizontal Marker, Vertical Marker, Tab Spacing, Page 
Length, and Printer Margin. To change the Page Length to 47, 
for example, you would type: : 


‘i (wait for the Help screen) 
P 
47 


To use the commands below, first type the command marker you 
are using, then the character. 


H is the Horizontal Line DRAW/ERASE command. To use it, type 
7H. 


If the cursor is on any character other than one you are 
using as the Horizontal Marker, it will draw a line from the 
cursor position to the right edge of the screen. If the 
cursor is on the current character being used as the 
Horizontal Marker, it will erase all the characters from the 
cursor position to the right edge of the screen. 


Vv is the Vertical Line DRAW/ERASE command. To use it, type /V. 


If the cursor is on any character except the one you are 
using as the vertical marker, it will draw a line from the 
cursor position to the bottom Line of your page. If you have 
set your page length greater than 23, the Line will extend 
beyond the bottom of your screen. If the cursor is on the 
current character being used as the vertical marker, it will 
erase all the characters from its position to the last line 
of your page. 


A “+ symbol will automatically be drawn by ZIP whenever the 
horizontal and vertical Lines cross (current values only--see 
“Working With ZIP"). ZIP keeps track of these so that you can 
quickly and easily draw and erase boxes and even more complex 
shapes. 


sH,/H and /V,/V¥ can be used to erase rows and columns, 
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ZIP COMMANDS 


For 
a indicates position to SAY a variable 
# indicates position to GET a variable 


No end-of-field character is required, as ZIP will automatically 
assume that the variable name is complete when it reaches the 
first character that dBASE II would not accept (10 characters 
maximum). The valid characters for d@ASE II variable names are: 
A-Z, a-z, 0123456789 and an embedded colon. 


ZIP checks for colons that are not embedded, missing variable 
names, and GET's in a print file, then lets you correct them or 
ignore them. ZIP writes in a READ statement after every 64 GET's, 
with a marker in the .CMD file and a message on the screen to let 
you know where it is. 


ZIP writes command files (<name>.CMD and <name>.FMT) that you can 
run with no further editing. In a screen file, ZIP writes ERASE 
at the start of the file. In printout files, ZIP writes SET 
FORMAT TO PRINT and SET MARGIN TO xx at the start of the file, 
and SET FORMAT TO SCREEN just before the final RETURN statement. 


ZIP also saves an tmage of your screen as <name>.ZIP and a 
printable copy as <name>.ZPR. 


ZIP can also be used to edit standard ASCII files (88 Lines 
maximum). 


The square brackets--Ci--are reserved as text delimiters by ZIP 
and may only be used in your files to enclose dBASE IL commands 
and comments that you want to embed in your forms. 


Dynamic Values 


° is installed as the Vertical Marker, but can be changed to | 
or any other character when you install ZIP. It can also be 
changed temporarily while setting up a form with ZIP. 


- is the Horizontal Marker and can be changed during 
installation, and dynamically while working with ZIP (Like 
the Vertical Marker). 


TAB SPACING jis set at 5 spaces, but can be changed to any value 
from 1tothe width of your screen minus 1 (for the Osborne- 
installed version of ZIP, this is 79) when you install ZIP, 
then can be dynamically changed while working with ZIP. 
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respectively. 


T and B move the cursor to the top and bottom of the screen 
respectively, keeping the cursor in the same column. 


a moves the cursor to the middle of the row the first time, 
then to the middle of the screen. 


<tab> first moves the cursor to the right edge of the screen, 
then moves it from edge to edge each time it is used. 


c centers text on the cursor Line. 
N displays the next screen, advancing through your work file 
one screen at a time until the Last Line of your page is at 


the bottom of the screen. 


P displays the previous screen, backing up one screen at a 
time until Row 0 is at the top of the screen. 


F displays the first screen, and is a fast way to get back to 
the beginning. 

L displays the last screen, and is a fast way to get to the 
end of the form. 

I inserts a space at the cursor. If any characters are pushed 
of the right edge of the screen, they are lost forever. 

d deletes the character under the cursor. 

A adds a row or column at the cursor, pushing text down. If 


any text is pushed past the end of the page length that you 
have set, it is lost forever. 


K kills the cursor row or column and closes up the text. 
E erases your work file and allows you to start on a new file. 
$s saves your work file as <name>.ZIP and <name>.ZPR, then 


writes the command file for your screen or printout as 
<nmame>.CMD or <name>.FMT (your choice). 


Q@ quits to your CP/M system. 
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Section I: 


How to CREATE a database .....- 
Entering data into your new database 
Modifying data with EDIF.....-. 
Full screen editing features... 
An introduction to dBASE II commands 

error correction dialog ..... 


Expanding commands with expressions 


and relational operations . 
Looking at data with DISPLAY . 
Positioning commands ..... 
The interactive ? command .. 
Adding more data with APPEND 

and INSERT commands . .. » 
Cleaning up a database .... 
Section I Summary ..- 2. 


eeee 


ee es 


CREATE 


EDIT 


USE, DISPLAY, LIST 


LIST 

DISPLAY 

GO, Goro, SKIP 
2 


APPEND, INSERT 
DELETE, RECALL, PACK 


In this section, we create a database and enter data. We also 
introduce you to some dBASE II commands that will be developed 
and added to throughout the rest of this manual. For a complete 
definition of a command, see Part II. 
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How to CREATE a database 


We'll start by creating a database of names for a mailing list © 
system, Each record in the database will contain the following 
information: 


NAME: up to 20 characters long 
ADDRESS: up to 25 characters long 
CITY: up to 20 characters long 
STATE: 2 characters long 

ZIP CODE: 5 characters 


First, type “CREATE*. 
GBASE II responds with: ENTER FILENAME:. 


Enter a filename starting with a letter and up to 8 characters 
long (the Limit imposed by CP/M) using no colons and no spaces. 
Since this is a file of names, let's call it something that makes 
sense to a human being: type “Names”. 


When you press return, GBASE II creates a file called 
<NAMES.DBF>. The part of the name after the period is the CP/M 
file name extension, and is short for database file (see Section 
v, File Types). 


In a database management system, each item we want to enter into i) 
a single related grouping is called a field and the grouping is 
called a record (see Section Vv, Database Basics), In our 
example, each record will have 5 fields. dBASE needs to know the 

name of each field, what type of data it will contain, how long 

it is, and how many decimal places (if the data is numeric). 


Field names can be up to 10 characters long, and may be entered 
in upper and/or lowercase, The name must start with a letter and 
cannot contain spaces, but can contain digits and embedded 
colons, Don't abbreviate any more than you have to: the 
computer will understand what you mean, but people might not, 


The type of data is specified by a single letter: c for 
Character, N for Numeric and L for Logical. In this case, all 
fields contain character data. oO 


Field width can be up to 254 characters. If the field is numeric 


and decimal places are specified, remember that the decimal point 
also takes one character position. 
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We know what names we want to give our fields, the type of data 
that they will contain, and their lengths so type the information 
in now. Here's what the screen looks like when you're finished: 


Notice what happened at field 5: we made an error by entering a 
space in the field name, so dBASE II told us what the error was 
and gave us a chance to correct it. 


Notice also that the data type for the ZIP code was specified as 
"character", even though we normally think of the digits here as 
numbers. 


The dBASE II command TOTAL can total all the numeric fields in a 
record (without you specifically listing them all). Doing so 
with the ZIP code field would simply be a waste of time. Thus we 
decided to use characters to represent ZIP code as opposed to 
numbers. We can still use the relational operators ("greater 
than", "less than", “equal or not equal to") with the character 
data, so this will not interfere with any ZIP code sorting we may 
want to do later. 


When dBASE II asked us for the specifications for a sixth field, 
we pressed RETURN to end the data definition. dBASE II saved the 
data structure, then asked if we wanted to enter data in it. 


The <Names.DBF> database is immediately ready for data entry, so 
type “y™. On the next page we tell you how to enter the data. 
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Entering data into your new database 
the Oo 


The screen will be erased, then the record number and all 
fields will be displayed starting in the upper left-hand corner 
of the screen, with the cursor at the first character position of 
the first field. 


(SCREEN M) 


Field lengths are indicated by two colons. When a field is 
filled or you press RETURN, the cursor "jumps" down to the next 

. field. The cursor can be moved back up to a previous field by 
holding the control key down and pressing the letter E once: 
“control-E*, abbreviated as “entl-E*. When you are finished with 
the last field, dBASE II presents another empty record. 


Enter the following names and addresses. We'll be using them 
soon to show you some of the powerful features of dBASE II. 


ALAZAR, PAT 123 Crater Rd., Everett, WA 98206 
BROWN, JOHN 456 Minnow Pl., Burlington, MA 01730 
CLINKER, DUANE 789 Charles Dr., Los Angeles, CA 90036 
DESTRY, RALPH 234 Mahogany St., Deerfield, FL 33441 
EMBRY, ALBERT 345 Sage Ave., Palo Alto, CA 94303 
FORMAN, ED 456 Boston St., Dallas, TX 75220 
GREEN, TERRY 567 Doheny Dr., Hollywood, CA 90046 
HOWSER, PETER 678 Dusty Rd., Chicago, IL 60631 


If you make any mistakes that can't be corrected by backspacing 
and entering the correct data over them, read the next two pages 
on editing before moving on to the next record. If you 
accidentally get back to the dBASE dot prompt, type: 


“USE Names* 
“APPEND” 


and continue with your entries. (This will be explained later in 
the manual). 


To stop entering data, after you've entered the last ZIP code and 
while you are on the first character of the first field of the 
next record, press RETURN. If you have typed in some data or 
moved the cursor, hold the control key down and press the letter 
Q: (Tentl-Q*). 


@BASE leaves the data entry mode and presents its dot prompt (.) 
to show you that it's ready for your commands. 


If you want to stop now, simply type “QUIT*. 
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“QUIT” must be typed every time you terminate a dBASE II session. 
This automatically closes all files properly. Unless you do so, 
you may destroy your database, 
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Modifying data with EDIT 


If you made any errors in the entries, you can correct them 
quickly and easily in the Full Screen Edit mode. Type: 


“USE Names~ 
“EDIT <number>* 


where "number" is the number of one of the records in the 
database, 


GBASE brings up the entire record and you can use the Full Screen 
Editing commands to modify any or all of the data in the record. 
To move to the next record, press “cntl-c*. To move to the 
previous record, press “cntl-R”, To try it, type “EDIT 3%. 


If you mark a record for deletion by pressing “cntl-u*, "DELETED" 
appears at the top of the screen. Pressing “entl-u" again removes 
the word and “un-deletes” the record, If you “LIST* (pp.20 and 

21) or “DISPLAY~ (pp. 20 and 23) your database, you will see an 
asterisk next to all records marked for deletion. 


fo abort full-screen editing, press “entl-Q*. This does not make 
the changes that were on the screen when you exited. 


To exit gracefully and save the changes made so far, press “cntl- 
wr. 


For the most part, the dBASE II editing controls conform to those 
of WordStar. If you've used WordStar much, you should find the 
editing abilities of dBASE II simple to learn and easy to use. 
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Full screen editing features 

entl-X moves cursor down to the next field (or cntl-F). 

entl-E moves cursor back to the previous field (or cntl-A). 

cntl-D moves cursor ahead one character. 

cntl-S moves cursor back one character. 

cntl-v toggles between overwrite and insert modes. 

entl-G deletes the character under the cursor. 

<-- deletes the character to the left of the cursor. 

entl-P toggles your printer ON and OFF. 

entl-Q quits and returns to normal dBASE II operation without 
making changes, even in the MODIFY mode. 


“MODIFY* functions: 

entl-T deletes the field where the cursor is and moves all the 
lower fields up. 

entl-y clears the current field to blanks, but leaves all fields 
where they were. 

entl-N moves fields down one position to make room for insertion 
of a new field at the cursor position. 


“APPEND~ functions: 

entl-R writes the record to disk and moves to the next record. 

<RETURN> when cursor is at the initial position of a new record 
resumes normal dBASE II operation. 

centl-Q erases the record and resumes normal dBASE II operation 


“EDIT* functions: (Do not use in “APPEND” mode) 

centl-c writes the record to disk and advances to the next record. 

cntl-R writes the record to disk and backs up to the previous 
record. 

centl-U toggles the record deletion mark on and off. 

cntl-W saves any changes made and resumes normal dBASE II 
operation. 

entl-Q aborts any changes in the record you're working on and 
prints the coordinate prompt. Press RETURN to resume 
normal dBASE II operation. 
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An introduction to dBASE II commands and the error correction 
dialog (USE, LIST, DISPLAY) 


GBASE II commands are generally verbs. You type them in when you 
see the dBASE II dot (.) prompt. 


When you want to tell dBASE II which database file you want to 
work with, you type “USE <filename>”. 


To look at the record you are on, type “DISPLAY”. 


To see all the records in the database, type “LIST*. {To stop 
and start the scrolling, press “centl-S*.) 


aBASE II commands can be abbreviated to four letters, but if you 
use more letters they must all be correct (“DISPLAY*, “DISP* and 
“DISPLA*~ are valid commands; “DISPRAY~ is not.) 


The command line as you enter data is scanned and you are 
prompted with error messages when mistakes are detected. You get 
a second chance to make corrections without having to retype the 
entire line. 


Type “EDUT 3* followed by RETURN 


dBASE II repeats a command it does not know. If you decide’ to 
change it, you do not have to retype the entire command. 


In response to “CHANGE FROM:" type in enough of the wrong part of 
the command so that it is unambiguous, then press RETURN. 


In response to “CHANGE TO:" type in the replacement for the 
material you want changed. 


In this example, we changed only a single letter, but you'll find 
this feature useful when you are testing and debugging long 
command lines. 


Tip: The “ERASE* command erases the screen and positions the 
prompt dot at the upper left-hand corner of the screen 
so that you can start new commands with a clean 
display. ; 
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Expanding commands with expressions and relational operators 
(LIST) 


One of the most powerful features of dBASE II is the ability to 
expand and "tailor" the commands. 


You can add "phrases" and expressions to most commands to further 
define what the commands will do. Commands can be entered in 
upper and lowercase letters, and command lines can be up to 254 
characters long. To extend the line beyond the width of your 
display, type in a semicolon (;) as the last character on the 
line (no space after it). dBASE II will use the next line as part 
of the Command. 


Since dBASE II is a relational pBMs, you'll find the relational 
operators useful: 


: less than 

Qreater than 

equal to 

less than or equal to 
greater than or equal to 


VAIVA 


These commands mean exactly what the explanation on the right 
Says. They generate a Togical value as a result (True or False). 
If the expression is True, the command is performed, If the 
expression is false, the command is not performed, 


Earlier, we mentioned that the LIST command will show all the 
records in the database (to stop and start the scrolling, use 
“entl-s*). The full form of the command is: 


“LIST [OFF] [FOR <expression>]~ 


If the option OFF is used, the record numbers will not be 
displayed. 


If the optional FOR clause is used, dBASE II will list only the 
records for which the expression is true, Type the following, 
using single quotes around the character data (see data types in 
Section II): 


“USE Names* 

“LIstT™ 

“LIST OFF* 

“LIST FOR Zip:Code = ‘'9'* 
“LIST OFF FOR Zip:Code < 'g'* 
“LIST FOR Name='GREEN'* 


Notice that when you enter only part of the contents of the 
field, that is all that is compared by dBASE. We did not need Mr. 
Green's full name, for example, although we might have used it if 
our database contained several GREEN'S. 


21 


In addition to precisely selecting data from your database, the 
LIST command can be used to provide you with system information, 


“LIST STRUCTURE” shows you the structure of the database in USE, 


“LIST FILES” shows the names of the datadase (.DBF) files on the 
logged-in drive. “LIST FILES ON <drive>* shows the database 
files on another drive (do NOT use the usual CP/M colon following 
the letter which specifies the drive, 
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Looking at data with DISPLAY 


The “DISPLAY* command is similar to “LIST*. Its full form is: 


{All j 
DISPLAY [Record n] [OFF] (FOR <expression>] 
(Next n J 


This gives you the option of specifying the scope for the 
“DISPLAY* command (also “LIST*). 


Specifying "Record n" displays only that record; “Next n® 
displays the next "n" records, including the current record. 
“DISPLAY ALL* is the same as “LIST*, except that “LIST* will 
scroll all the records in the database up the screen, while 
“DISPLAY ALL* shows you the database in groups of 15 records at a 
time (pressing any key displays the next 15 records). Type the 
following: 


“DISPLAY Al1l* 
“DISPLAY Record 3* 
“DISPLAY Next 47 


As with “LIST*, the optional FOR clause can be used to select 
specific data by using logical expressions. 


The DISPLAY command can also be used like the LIST command for 
system functions: 


DISPLAY STRUCTURE is the same aS LT™ST:- STRUCTURE. 
DISPLAY FILES is the same as LIST FILES. 


Both “LIST* and “DISPLAY* can show you specific types of files on 
a drive using the CP/M ambiguous characters * and ?. “DISPLAY 
FILES LIKE *.COM ON B*, for example, would display all the ".COM" 
files on drive B. If uncertain, reread chapter 3 of you Osborne 
User'smanual, then use this form: 


“DISPLAY FILES LIKE <ambiguous>* 
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Once you have your database set up, you can also move from record 
to record quickly and easily with dBASE II. Type the following: 


“USE Names* 
“GO TOP* 
“DISPLAY~ 
*GO BOTTOM* 
“DISPLAY~ 
“GOTO 5* 
“DISPLAY~ 
res 
“DISPLAY~ 


“GO TOP“ (or “GOTO TOP*) moves you to the first record in the 
database. “GO BOTTOM* moves you to the last record. You can go 
to a specific record by using “GOTO* <number> (or GO <number>). 
And you can even eliminate the GO and just specify the record 
number. 


“SKIP” moves you to the next record. “SKIP + n* moves you 
forward or backward "n" records. You can also use “SKIP 
+<variable/expression>*, with the number of records skipped 
determined by the value of the variable or expression (both 
defined later). Type the following: 


“DISPLAY~ 
“SKIP-3* 
“DISPLAY* 
“SKIP* 
*“DISPLAY~ 


*) 
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The interactive ? command 


The “?7 command allows you to use dBASE II in the calculator 
mode, Simply type in the question mark and a space followed by 
the quantity or mathematical function you want evaluated and 
GBASE II will provide the answer on the next line. Using ?? puts 
the answer on the same line. 


Type the following: 
*? 73/3.00007 


*? 73.00/37 
“2 13/2" 


The “?7 command shows the answers to a mathematical operation to 
the same number of decimal places as the maximum in the numbers 
entered. 


You can also think of *?* as meaning: "What is ...", with the 
dots replaced by an expression, a variable (a field name or a 
Memory variable), a dBASE II function or a list of these 
separated by commas. Type the following: 


“USE Names” 
“67 

“? Zip:Code* 
°? Name* 
“SKIP™ 

“? Name* 

“GO BOTTOM” 
"9 city” 


In the section on functions and commands, we'll show you how the 
“?° can be used to access other dBASE II functions, and to 
display CRT prompts to the operator from a command file. 
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You can add data to any database quickly and easily with a one- a) 
word command. First choose the database file into which you want 

to enter data by typing “USE <filename>”, then typing in the 
command “APPEND”: 


“USE Names”~ 
“APPEND™ 


a@BASE II responds by displaying the record number that follows 
the last record in the file and the fields for that database. If 
you fill in the record, it is added onto the end of the file 


(appended). oO 
The display includes the names of the fields, with colons showing 
field lengths. The cursor is at the first position where you can 
Start to enter data. I£ you £ill up the entire field with data, 

the cursor automatically moves down to the next field, If not, 
press RETURN. 


If there is no data to be entered in a field, use RETURN to move 
the cursor to the next field. Character fields will 
automatically be filled with blanks, numeric fields will show a 
Zero. When entering numeric data, if there are no digits after 
the decimal, there is no need to type the decimal. dBASE II 
automatically puts in the decimal point and the necessary number 
of following zeros. 


Records can be inserted into a specific location in a database 
(to keep them alphabetical, for example) by typing: 


“INSERT [BEFORE] [BLANK]~ 


using the word “INSERT~ alone inserts the record just after the 
current record. Specifying BEFORE will insert the record just 
before the current record. In either case, you are prompted the 
same way as with the “APPEND” and “CREATE” commands. If BLANK is 
specified, an empty record is inserted and there are no prompts. 
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Add the following names alphabetically to the <Names.DBF> 
database: 


EDMUNDS, JIM 392 Vicarious Way, Atlanta, GA 30328 
INDERS, PER 321 Sawtelle Blvd., Tucson, AZ 85702 
JENKINS, TED 210 Park Avenue, New York, NY 10016 
The sequence of commands is: 


“USE Names* 


*s 
“INSERT BEFORE™ (enter the data for the first name) 
“APPEND” (enter the data for the last names) 


In the “INSERT* mode, when you fill the last field, dBASE II will 
return to the command mode (dot prompt). 


To exit the “APPEND” mode, position the cursor at the start of a 
new field, then press RETURN or “cnt1-Q*. 


In either mode, you can exit from inside a record by pressing 
“entl-w*. This will save what has been entered up to that point 
and return you to the command mode. 
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Cleaning up a database (DELETE, RECALL, PACK) 


Deletions can be made directly from dBASE II as well as in the 
“EDIT” mode. 


To delete the current record, type “DELETE”. 

To delete more than one record, use the form “DELETE <scope>”, 
where the scope is the same as for other dBASE II commands: All, 
Record n, or Next n. 

To make the deletions conditional, expand the command to: 


“DELETE [scope] [FOR <expression>]~ 


where "expression" is a condition or set of conditions that must 
be met. (This is developed in more detail in Section II). 


Type “DELETE FILE <drive>:<filename>” to delete a file. But once 
you've done this, the data is gone forever, so be careful. 


Unlike files, records marked for deletion can be recovered, 
Rather than erasing the data, “DELETE” marks each record with an 
asterisk. You will see the asterisks when you “LIST* or “DISPLAY~ 
the records. GBASE II then ignores these records, and does not 
use them in any processing. 


To restore the records, use the following command: 

“RECALL [scope] [FOR <expression>]~ 

This operates the same way “DELETE” does, with the scope and 
condition being optional. If a conditional expression is used, 
it does not have to be the same as was used to mark the records 
for- deletion, 


At some point, however, you will want to clean up your files to 
clarify displays or to make more room for storage. To do this, 


type: 
“PACK”. 


This erases all records marked for deletion, and tells you how 
many records are in the database, 


Note: Once you use this command, the records are lost forever, 
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To see how these commands work, type the following: 


“USE Names* 
“LIST* 
“DELETE RECORD 2* 
“DELETE RECORD 47 
“LIST* 

“RECALL RECORD 4* 
“LIST* 
“PACK~ 
“LIST* 
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Section I Summary 


At this point, you have learned about the power over data that a 
relational database management system like dBASE II can give you. 


You can “CREATE* a new database and start entering data in 
minutes. 


I£ you want to change the data, this is easily done with “EDIT*, 
“DELETE”, “RECALL” and “PACK*. 


You can “APPEND® or “INSERT* more data as required, and “*LIST* 
and “DISPLAY” entire files or precisely selected records. You 
can also “GOTO” and “SKIP* around within a database quickly and 
easily. 


Additionally, dBASE II can be used interactively as a powerful 
calculator (and more) with the *?* command. 


We have introduced you to expressions and how they can be used to 
expand the power of dBASE II commands. In the next section, we 
will go into this in more detail and show you how to get useful 
information out of your databases quickly and easily. 


Before that, please “CREATE” these two files on the Sample file 
diskette in drive B, as we will need them for other examples. 
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In this section, we develop the use of expressions to modify 
aBASE II commands. This may be the most important part of 
learning how to use dBASE II effectively. 


The dBASE II commands can be learned fairly easily because they 
are English-like, and learning another command is a matter of 
increasing your vocabulary (and your repertoire) by another word. 


Expressions, combined with the commands, give you the fine 
control you need to manipulate your data to perform specific 


tasks. Once you have learned how to handle expressions, you will 


only have to learn two more things about programming to be able 
to write effective applications command files: how to make 


decisions and how to repeat a sequence of commands, covered in 
Section III.) 
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Using expressions for selection and control 


We gave you a brief introduction to expressions that can be used 
with dBASE II commands in Section I. 


As you Saw, they are a powerful way to extend the commands and 
manipulate your data quickly and easily. If you check the index 
of commands in Section VI, you'll see that many dBASE II commands 
can be modified in the form: 


“<COMMAND> [FOR <expression>)~ 


This extended power gives you a flexibility that you simply do 
not get with other database management systems. We've been told 
by experienced programmers that they can write a program (a dBASE 
IJ command file) for an application in as little as one-tenth the 
time it would take them using BASIC or even higher level 
languages such as COBOL, FORTRAN and PL/1. 


But to take advantage of this power, you need to understand how 
to work with expressions and operators, then how to combine the 
modified commands into command files that will perform the same 
tasks again and again. 


The next few pages will get you started. Ultimately, experience 
is going to be the best teacher. 


Reminder: AS we introduce commands through the text, we try to 
explain a particular aspect of the command that will 
allow you to do a few more things with your database. 
This means that we do not cover the entire command at 
one time. To find out all that a command can do, use 
the summary at the end of Part I and the definitions of 
Part II. 


Note: If, after you've finished this Section, you are still 
uncertain about how to write expressions that make the 
dBASE II commands do exactly what you want done, you 
may want to look at some beginning programming texts at 
your local library. Most of them discuss expressions 
within the first two chapters or so. 
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Constants and variables (STORE) 


Expressions in dBASE II are used to help select and manipulate 
the data in your database (see “DISPLAY™). The quantity that you 
manipulate may be either a constant or a variable. 


Constants are data items that do not change, no matter where they 
appear in a database or within the computer. They are literal 
values because they are exactly what they represent. Examples 
are numerals such as 3 and the logical values T and F (for true 
and false), 


Characters and character strings (all the printable characters 
plus spaces) can also be constants, but must be handled a bit 
differently. 


Strings are simply a collection of characters (including spaces, 
digits and symbols) handled, modified, manipulated and otherwise 
used as data. A substring is a portion of any specific string. 


If a character or collection of characters is to be treated as a 
string constant, it must be enclosed in single or double quotes 
or in square brackets so the computer understands that it is to 
deal with the characters as characters. To see what we mean, 
get dBASE [I up on your computer and USE <Names>, Type: 


“aBASE* 
“USE Names” 
“2? 'Name'~ 
*? Name* 


In response to the first "What is..." (the “7?* command), the 
computer responded with NAME because that was the value of the 
constant. When you eliminated the single quotes, the computer 
first checked to see if the word was a command, It wasn't, so it 
then checked to see if it was the name of a variable. 


Variables are data items that can change, Frequently they are 
the names of database fields whose contents can change. In this 
case, the computer found that our database had a field called 
<Name> so it gave us the data that was in that field at that 
time. Type the following: 


“SKIP 37 
“? Name~ 
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Now type “USE”. Since we do not specify a file name, the computer 
simply closes all files. 


If we type 7? Name” again, the computer tells us that we made an 
error. In this case, we tried to use a variable that did not 

exist because we were no longer USing a file with a matching 
field name. 


The variables can also be memory variables rather than field 
names. dBASE II reserves an area of memory for storing up to 64 
variables, each with a maximum length of 254 characters, but with 
a maximum total of 1536 characters for all the variables, 


You might want to think of this as a series of 64 pigeon-holes 
available for you to tuck data into temporarily while working out 
a problem, 


variable names can be any legal dBASE II identifier (start with a 
letter, up to ten characters long, optional embedded colon and 
numbers, no spaces). 


You can use a memory variable for storing temporary data or for 
keeping input data separate from field variables. In one session, 
for example, we might "“tuck" the date into a pigeon-hole 
(variable) called <Date>. During the session, we could get it by 
asking for <Date>, then place it into any date field in any 
database without having to re-enter it (see GetDate.cMD in 
Section VI). 


To get data (character, numeric or logical) into a memory 
variable, you can use the “STORE” command. The full form is: 


“STORE <expression> TO <memory variable>* 
Type the following: 


“STORE “How's it going so far?" TO Message” 
“STORE 10 TO Hours” 

“STORE 17.35 TO Pay:Rate” 

“? Pay:Rate*Hours~ 

“2? Message~ 
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Notice that we used double quotes around the character string (a 
constant) in the first line because we wanted to use the single 
quote as an apostrophe inside the string. 


If this isn't clear yet, try experimenting with and without the 
quotes to get the distinction between constants and variables. 
To start you off, type the following: 


“STORE 99 TO Variable” 

“STORE 33 TO Another™ 

“STORE Variable/Another TO Third* 
“STORE '99' TO Constant” 

°? variable/Another~ 

*? variable/37* 

“2? Constant/3* 

“DISPLAY MEMORY~ 


Entering a value into a variable automatically tells dBASE II 
what the data type is. From then on, you cannot mix data types 
(by trying to divide a character string by a number, for 
instance.) 


RULES: Character strings that appear in expressions must be 
enclosed in matching single or double quote marks or 
square brackets. Character strings may contain any of 
the printable characters (including the space). If you 
want to use the ampersand (&) as a character, it must 
be between two spaces because it is also used for the 
GBASE II macro function (described later). 
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The last command in the previous screen representation is another 
form of “DISPLAY” that you'll find useful. (You can also “LIST 
MEMORY” .) 


You can eliminate a memory variable by typing “RELEASE <name>“, 
or you can get rid of all the memory variables by typing “RELEASE 
ALL. 


Type the following (you may want to “ERASE” the screen first): 


“DISPLAY MEMORY™ 
“RELEASE Another™~ 
“DISPLAY MEMORY~ 
“RELEASE ALL” 

“DISPLAY MEMORY~ 


Tip: When naming any variables, try to use as many 
characters as necessary to make the name meaningful to 
humans. 


Another tip: If£ you use only nine characters for database field 
names, when you want to use the name aS a memory 
variable, you can do so by putting an "M" in front of 
it. What it stands for will be clearer when you come 
back to clean up your programs later than if you 
invented a completely new and different name. 
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GOBASE II operators 


Operators are manipulations that dBASE II performs on your data. 
Some of them will be familiar; others may take a bit of practice. 


Arithmetic operators should be the most familiar. They generate 
arithmetic results. 

) parentheses for grouping 
multiplication 

division 

addition 


( 
* 
/ 
+ 
- subtraction 


ee oe on oe ae 


The arithmetic operators are evaluated in a sequence of 
precedence. The order is: parentheses; multiply and divide; add 
and subtract. when the operators have equal precedence, they are 
evaluated from left to right. Here are some examples: 


17/33*72 + 8 = 45.609 (divide, multiply then add) 
17/(33*72 +8) = 0.00644 (multiply,add then divide) 
17/33*(72 +8) = 41.21 (add, divide then multiply) 


Relational operators make comparisons, then generate logical 
results. They take action based on whether the comparison is True 
or False. 


< : less than 

> +: greater than 

= +: equal to 

<> : not equal to 

<= : less than or equal to 

>= : greater than or equal to 


Type the following: 


“USE Names~ 

“LIST FOR Zip:Code <= '70000'* 
“LIST FOR Address <> '123'* 
“LIST FOR Name = 'HOWSER'~ 


The logical operators greatly expand the ability to refine data 
and manipulate records and databases, Explaining them in depth 
is beyond the scope of this manual, but if you are not familiar 
with them, most computer texts have a chapter very near the 
beginning that explains their use, They generate logical results 
(True or False). They are listed below in the order of 
precedence within an expression (.NOT. is applied before .AND., 
etc.): 


Q) parentheses for grouping 
«NOT. boolean not (unary operator--implies negation) 
sAND. : boolean and (are both true) 
.OR. : boolean or (is either true) 
substring logical operator 
(substring search) 


nn 


“LIST FOR (JobNumber=730 .OR. JobNumber=731); 
eAND. (Bill:Date >= '791001° .AND.; 
Bill:Date <= '791031')* 


displays all the October, 1979 records for costs billed against 
job numbers 730 and 731 (notice how the command line was extended 
with the semi-colons). 


If you're not familiar with logical operators, start with the 
basic fact that these operators will give results that are True 
or False. In our example, dBASE If asks the following questions 
about each record: : 


1) Is JobNumber equal to 730 (T or F)? 

2) Is JobNumber equal to 731 (T or F)? 

3) Is Bill:pDate greater than or equal to '791001' (T or F)? 
4) Is Bill:Date less than or equal to "791031" (T or F)? 


GBASE II then performs three logical tests (.OR., .AND., AND.) 
before deciding whether the record should be displayed or not. 


Parentheses are used as they would be in an arithmetic expression 
to clarify operations and relations. Because of the first .AND., 
dBASE II will display records only when the conditions in both 
parenthetical statements are true. 


Evaluating the first expression, it first checks the <Job:Number> 
field. If the value in the field is 730 or 731, this sub- 
expression is set to True, If the field contains some other 
value, this sub-expression is False and the record will not be 
displayed. 


I€ the €irst sub-expression is true, @BASE II must still check 
the contents of the <Bill:Date> field to evaluate the second sub- 
expression. If the contents of the field are between ‘'791001' 
and '791031, inclusive, this expression is true, too, and the 
record will be displayed. Otherwise, the complete expression is 
false and dBASE II will skip to the next record, where it 
proceeds through the same evaluation. 
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Let's try some of this with <Names.DBF>. ‘Type the following: 


“USE Names~ 

“DISPLAY all FOR Zip:Code > '5' .AND. Zip:Code < Hous 
“DISPLAY all FOR Name < 'F'* 

“DISPLAY all FOR Address > ‘400° .AND. Address < '700'~ 
“DISPLAY all FOR Address > '400' .OR. Address < '700°* 


Notice what happened with the last command: all the records were 
displayed. If you're not familiar with logical operators, this 
kind of non-selective "selection" will have to guarded against. 
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The § substring logical operator is extremely useful because of 
its powerful search capabilities. The format is: 


“<€substring> $ <string>*~ 


This operator searches for the substring on the left within the 
string on the right. Either or both terms may be string 
variables as well as string constants. To see how this works, 
type the following: 


“USE Names” 

“LIST FOR ‘EE' $ Name~ 
“LIST FOR '7' $ Address® 
“LIST FOR 'CA' $ State” — 
*? '00' $ 'Hollywood'* 

™, GO 5” 

. DISPLAY~ 

“? State $ “CALIFORNIA*~ 


a 


With this function we could have, for example, simplified the 
structure of our mailing list names file. The states could have 
been entered as part of the address, To call out names within a 
specific state, we could have simply typed the following, where 
XX is the abbreviation for the state we want: 


“<COMMAND> FOR 'XX' $ Address” 


40 


String operators generate string results. 


= string concatenation (exact) 
= string concatenation (moves blanks) 


Concatenation is just another one of those fancy computer 
buzzwords, All it really means is that one character string is 
stuck on to the end of another one. Type the following: 


“USE Names~ 

“2? Name + Address® 

“? Name - Address” 

“? ‘The name in this record is ' + Name; 
- ' and the address is '+ Address”™ 


age a“ 


The “+* and “-* both join two strings. The “plus” sign joins the 
string exactly as they are found. The "minus" sign moves the 
trailing blanks in a string to the end of the string. They are 
not eliminated, but for many purposes this is enough, as they do 
not show up between the strings being joined. 


If you want to eliminate the trailing blanks, you can use the 
“TRIM” function, This is used by typing “STORE TRIM(<variable>) 
TO <variable>*. As an example, we could have typed: "STORE 
TRIM(Name) TO (Name)“ to eliminate the blanks following the 
characters of the name. 


To eliminate all of the trailing blanks in our example, we could 
have typed: “STORE TRIM(Name — Address) TO Example*. 


Now that we've introduced you to expressions and dBASE II 
operators, we'll continue with other dBASE If commands. We'll be 
giving you some practice in using expressions and operators as we 
work our way up to developing command files. 


4. 


Changing an empty database structure (MODIFY) 


WARNING: The “MODIFY* command will destroy your database. 
Please follow instructions carefully. 


When there is no data in your database, the “MODIFY* command is 
the fastest and easiest way to add, delete, rename, resize or 
otherwise change the database structure. This destroys any data 
in the database so don't use it after you've entered data. 
(Later we'll show you a way to do so, safely.) 


<MoneyOut.DBF> has no data in it yet, so we'll work with it. A 
useful change would be to rename <JobNumber> to <Job:Nmbr> so 
that the abbreviation is consistent with <Emp:Nmbr> and 
<Bill:Nmbr>. Type the following: 


“USE b:MoneyOut~ 


“LIST STRUCTURE~ (page 22) 
“MODIFY STRUCTURE* 
ty? (in response to the question) 


7 
S 
i) 
ace 
2G fe 


aBASE II erases the screen and lists the first 16 (or fewer) 
fields in the database. Press “Cntl-x* to move down one field. 
Just type in the new field name over the old one (use a space to 
blank out the extra letter). 


You can exit “MODIFY~ in either of two ways: entl-W changes the 
structure on disk, then resumes normal dBASE II operation. cntl-Q 
quits and returns to normal dBASE II operation without making the 
changes. This actually gets you back without destroying the 
database, but play it safe and have a backup file (see next 
page). 
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Duplicating databases and structures (COPY) 


Duplicating a file without going back to your computer operating 
system is straightforward. Type the following: 


“USE Names* 

“COPY TO Temp” 

“USE Temp* 
“DISPLAY STRUCTURE~ 
“LIST* 


Warning: When you “COPY” to an existing filename, the file is 
written over and the old data is destroyed. 


“Copy TO TEMP* created a new database called <Temp.DBF>. It is 
identical to the <Names.DBF>, with the same structure and the 
same data. The command can be expanded even further: 


“COPY TO <filename> [STRUCTURE] [FIELD list] * 


With this command, you can copy only the structure or some of the 
structure to another file. Type the following: 


“USE Names* 
“copy TO Temp STRUCTURE~ 
“USE Temp* 

“DISPLAY STRUCTURE* 


We can copy a portion of the structure by listing only the fields 
we want in the new database. Type: 


“USE Names* 


“COPY TO Temp STRUCTURE FIELDS Name, State” 
“USE Temp* 
“DISPLAY STRUCTURE*~ 


FOR ADVANCED PROGRAMMERS: “COPY* can also be used to give your 
Program access to a database structure. Type: 


“USE Names” 

“copy TO New STRUCTURE EXTENDED~ 
“USE New* 

“DISPLAY STRUCTURE~ 

“LIStT* 


The <New.DBF> database records describe the <Names> database 
structure, and an application program has direct access to this 
information (see Review.CMD, Section VI). 


Alternatively, a file with the same structure as <New.DBF> could 
be embedded in a program so that the operator could enter the 
Structure for a file without learning dBASE II. The program 
would then create the database for him with the following 
command: 


“CREATE <datafile> FROM <structurefile>* 
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As you expand the applications for G@BASE II, you'll probably want 
to add or delete fields in your databases. 


“MODIFY STRUCTURE* alone would destroy all the data in your 
database, but used with “Copy” and “APPEND”, it lets you add and 
delete fields at will. 


The strategy consists of copying the structure of the database 
you want to change to a temporary file, then making your 
modifications on that file. After that is done, you bring in the 
data from the old file into the new modified structure, 


AS an example, we'll use our <Names> file and our <Orders> file. 
At some point, it would be useful to list the orders placed by a 
given customer, This could be done easily by adding a customer 
number field to <Names> file to match the field in the <orders> 
file. To do so without destroying the records we already have, 
type the following: 


“USE Names* 

“COPY TO Temp STRUCTURE~ 

“USE Temp™ 

“MODIFY STRUCTURE~ 

“y* (in answer to the prompt) 


Use the Full Screen Editing features to move down to the first 
blank field and type in the changes in the appropriate columns 
(name is "CustNmbr", data type is "C", length is 9). Now press 
“centl-w" to save the changes and exit to the dBASE II dot prompt. 


“DISPLAY STRUCTURE” to make sure that it's right. If it is we 
can add the data from <Names> by typing: 


“APPEND FROM Names” 


We could also have changed field sizes: the “APPEND” command 
transfers data to fields with matching names. 
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Our new file <Temp> should now have the new field we wanted to 
add and all of the old data. “DISPLAY STRUCTURE” then “LIST™ to 
make sure that a power line glitch or a bad spot on the floppy 
hasn't messed anything up. 


If the data got transferred correctly, we can finish up by 
typing: 


“COPY TO Names” 
“USE Names” 


The “copy” command writes over the old structure and data. After 
displaying and listing the new <Names> file, you can “DELETE FILE 
Temp”. ; 


fo summarize, the procedure can be used to add or delete fields 
in a database in the following sequence: 


“USE <oldfile>* 

“COPY TO <newfile> STRUCTURE* 
“USE <newfile>* 

“MODIFY STRUCTURE~ 

“APPEND FROM <oldfile>* 

“copy TO <oldfile>” 
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Dealing with CP/M and other “foreign” data files (more on COPY 
and APPEND) 


aBASE If information can be changed into a form that is 
compatible with other processors and systems (BASIC, PASCAL, 
FORTRAN, PL/1, etc.). dBASE II can also read data files that 
have been created by these processors. 


With CP/M, the standard data format (abbreviated as SDF in dBASE 
If) includes a carriage return and line feed after every line of 
text. To create a compatible data file (for wordprocessing, for 
example) from one of your databases, you use another form of the 
“COPY* command. Type: 


“USE Names* 
“COPY TO SysData SDF* 


This command creates a file called <SysData.TXT>. Now “QUIT* 
GBASE II and use your word processor to look at the file. 
You'll find that you can work with it exactly as if you had 
created it under CP/M. 


The Standard Data Format also allows dBASE II to work with data 
from CP/M files. However, the data must match the structure of 


If we had used a wordprocessor to create a file called 
<NewData.TXT>, we could add it to the <Names.DBF> file with this 
command. NOTE: the spacing of the data must match the structure 
of the database. If the <NewData.TXT> file contained the 
following information: 


FREITAG, JEAN 854 Munchkin Ave. Houston 
GOULD, NICOLE 73 Radnor Way Radnor 
PETERS, ALICE 676 Wacker Dr. Chicago 
GREEN, PRANK 441 Spicer Ave. Tampa 
(20) (25) (20) 


we would add it to the <Names> file by typing the following: 


“USE Names” 
“APPEND FROM NewData.TXT SDF~ 


Adding data to an existing file from a system file takes only 
seconds. 
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TX77006 
PA19089 
IL60606 
FL33622 


(2) G3) 


The procedure is similar if your “foreign™ files use different 
delimiters. A common data file format uses commas between fields 
and single quotes around strings to delimit the date. To create 
or use these types of data files, use the word DELIMITED Instead 
of SDF. To see how this works, type: 


“COPY TO Temp DELIMITED* 
then go back to your operating system to look at your data. 


If your system has a different delimiter, you can specify {it in 
the command: “DELIMITED [WITH <delimiter>]* (do NOT type the °<” 
and “>* symbols). If your system uses only commas and nothing 


around strings, use: “DELIMITED WITH ,-. 


The full forms of “COPY* and “APPEND” for working with system 
data files are: 


(soP } 


COPY [scope] TO <filename> [FIELD list] (STRUCTURE ] [FOR <expression>] 
(DELIMITED [WITH <delimiter>]} 


APPEND FROM <filename.TXT> (SDP ] [POR <expression>] 
(DELIMITED [WITH <delimiter>]] 


Both commands can be made selective by using a conditional 
expression, and the scope of “COPY~ can be specified as for other 
dBASE If commands. 


NOTE: While dBASE II automatically generates extensions for 
files it creates, you must specify the ".TxT" filename 
extension when APPENDing from a system data file. 


NOTE: With the “APPEND” command, any fields used in the 


<expression> must exist in the database to which the 
data is being transferred. 
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Renaming database fields with COPY and APPEND 


As we said earlier, “APPEND” transfers data from one file to 
another for matching fields. If a field name in the FROM file is 
not in the file in USE, the data in that field will not be 
transferred, 


However, the full form does allow you to transfer only data, and 
we can use this feature to rename the fields in a database. If 
we wanted to rename <CustNmbr> to <CustCode> in <Names.DBF>, we 
would type: 


“USE Names* 

“COPY TO Temp SDF*~ (data only to Temp. Txt?) 
“MODIFY STRUCTURE~ 

“APPEND FROM Temp.TXT SDF* (after changing field name) 


Now when you “DISPLAY STRUCTURE”, the last field will be called 
<CustCode>. Don't forget to change the name of the <custNmbr> 
field in our <Orders> database so that the fields match. 


(SCREEN NN) 


Data in a <.TxT> file created by using the SDF (or DELIMITED) 
option is kept in columns that are spaced like the fields were in 
the original file, While you can edit a <.TxT> file with your 
word processor, this can be dangerous: 


Warnings: Do not change field positions or sizes: the data you 
saved is saved by position, not by name! If you change 
the field sizes when you modify the structure, you will 


destroy your database when you bring the saved data 
back into it. 


When you “copy* data to a <.TxT file, you can use the full 


command to specify the scope, fields and conditions (see earlier 
explanation). 
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Modifying data rapidly (REPLACE, CHANGE) 


Changes can be made rapidly to any or all of the records using 
the following command: 


“REPLACE [scope] <field> WITH <data> [, <field> WITH <data>,...] 
[FOR <expression>]~ 


This is an extremely powerful command because it REPLACES a 
"“<field-that-you-name> WITH <whatever-you-write-in-here>". You 
can REPLACE more than one field by using a comma after the first 
combination, then listing the new fields and data as shown in the 
center brackets. 


The "data" can be specific new information (including blanks), or 
it could be an operation, such as deducting state sales tax from 
all your bills because you have a resale number (REPLACE all 
Amount WITH Amount/1.06). 


You can also make this replacement conditional by using the FOR 
and specifying your conditions as an expression. 


To show you how this works, we need to add some data to both the 
<Names> and <Orders> database files. 


First, “USE Names* then type “EDIT 1%. Now enter a *1001* in the 
<CustCode> field, using the full screen editing features to get 
into position. Press “entl-C* to move on to the next record when 
you are finished customer codes should be entered as four-digit 
numbers, with the record number as the last two digits (1001, 
1002, 1003, etc.) 


Now “USE b:Orders™ and “APPEND® the following order information 
(do not type the column headings): 


(Cust) (Item) (Qty) (Price) 


*1012 38567 5 83 
*1003 83899 34 «i 2" 
*1009 12829 7 «17* 
*1012 73833 23 1.47° 


“USE b:Orders* 
“REPLACE All Amount WITH Qty*Price” 
“LIST* " = 


You'll also find “REPLACE* useful in command files to fill in a 
blank record that you have appended to a file. Data from memory 
variables in your program is frequently used to fill in the blank 
fields. 
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Changes to a few fields in a large number of records can also be 
made rapidly by using: 


“CHANGE [scope] FIELD <list> [FOR <expression>]~* 


The "scope" is the same as for other dBASE II commands. At least 
one field must be named, but several field names can be listed if 
separated by commas, This command finds the first record that 
Meets the conditions in the "expression", then displays the 
record name and contents with a prompt, To change the data in 
the field, type in the new information, To leave it the way it 


type a space. 


Once you have looked at all the listed fields within a_ record, 
you are presented with the first field of the next record that 
meets the conditions you set, To return to dBASE II, press the 
“ESCAPE” key. 
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Organizing your databases (SORT, INDEX) 


Data is frequently entered randomly, as it was in our <Names> 
database. This not necessarily the way you want it, so dBASE II 
includes tools to help you organize your databases by SORTING and 
INDEXING it. 


INDEXED files allow you locate records quickly (typically within 
two seconds even with floppy disks). 


Files can be sorted in ascending or descending order. The full 
command is: 


“SORT ON <fieldname> To <filename> [DESCENDING] ~ 


The <fieldname> specifies the key on which the file is sorted and 
May be character or numeric (not logical). The sort defaults to 
ascending order, but you can over-ride this by specifying the 
descending option. 


To sort on several keys, start with the least important key, then 
use a series of sorts leading up to the major key. During 
sorting, GBASE If will move only as many records as it must. 


To sort our <Names> file so that the customers are in 
alphabetical order, type: 


“USE Names~ 

“SORT ON Name TO Temp” 
“USE Temp” 

*LIST* 

“COPY TO Names~ 


WARNING: Do not SORT a database to itself. A power line 
“glitch" could destroy your entire database if it came 
along at the wrong moment. 

Instead, sort to a temporary file, then “copy” it back to the 

original file name after you've confirmed the data. 
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A database can also be INDEXED so that it appears to be sorted. 
The form of the “INDEX” command is: 


“INDEX ON <key (variable/expression)> TO <index filename>~ 


This creates a file with the new name and the extension <.NDX>. 
Only the data within the "key" is sorted, although it appears 
that the entire database has been sorted, The key may be a 
variable name or a complex expression up to 100 characters’ long. 
It cannot be a logical field. To organize our customer database 
by ZIP code, type: 


“USE Names™ 

“INDEX ON Zip:Code TO Zips* 
“USE Names INDEX Zips” 
“LIST* 


We could also index our database on three keys by typing: 
“INDEX ON Name + CustCode + State TO Compound® 


Numeric fields must be converted to character type by using the 
“srr” function (described in more detail later). If CustCode was 
a numeric field with 5 positions and 2 decimal places, the 
conversion would be performed like this: 


“INDEX ON Name + STR(CustCode,5,2) + State TO Compound~ 


To take advantage of the speed built into an INDEX- ETS you have 
to specify it as part of the “USE* command: 


“USE <database name> INDEX <index filename>~ 


With the index file in USE, any records that are APPENDED will 
automatically be indexed, except for appended blanks. After the 
APPEND BLANK command is used, data that is added by the REPLACE 
command can be added to the index by using the command “INDEX™ 
with no qualifiers. 


Changes made to key fields when you “EDIT*, “REPLACE™ or “PACK™ 
the database, are reflected in the index file in USE. Other 
index files for the same database will not be correct. 


Positioning commands (GO, GO BOTTOM, etc.) given with an INDEX 
file in USE move you to positions on the index, rather than the 
database, “GO BOTTOM*, for example, will position you at the 
last record in the index rather than the last record in the 
database, 


A major benefit of an INDEXED file is that it allows you to use 


the “FIND” command (described next) to locate records in seconds, 
even with large databases, 
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Finding the information you want (FIND, LOCATE) 


If you know what data you are looking for, you can use the FIND 
command (but only when your database is indexed, and the index 
file is in USE). A typical FIND time is two seconds with a 
floppy disk system. 


Simply type “FIND <character string>~ (without quote marks), 
where the "character string" is all or part of the contents of a 
field. 


This string can be as short as you like, but should be long 
enough to make it unique. "th", for example, occurs in a large 
number of words; "theatr" is much more limited. Type the 
following: 


“USE Names INDEX Zips~ 
“FIND 107 

“DISPLAY~ 

“FIND 9* 

“DISPLAY~ 

“DISPLAY Next 37 


rT 


moa AyRAca! 
ef cas tr 


If the key is not unique, dBASE II finds the first record that 
meets your specifications. This may or may not be the one you're 
looking for. If no record exists with the identical key that you 
are looking for, dBASE II displays NO FIND. 


“FIND” can also be used with files that have been INDEXED on 
multiple keys. The disadvantage of a compound key (which may not 
be a disadvantage in your application) is that it must be used 
from the left when you access the data. That is, you can access 
the data by using the FIND command and just the Name, or the Name 
and CustCode, or all three fields, but could not access it using 
the State or CustCode alone. To do that, you would either have 
to use the LOCATE command (next), or have another file indexed on 
the State field as the primary key. 
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When looking for specific kinds of data, use 
“LOCATE [scope] [FOR <expression>] ~ 


This command is used when you are looking for specific data in a 
file that is not indexed on the key you are interested in (file 
is indexed on zip codes, but you're interested in states, etc.) 


If you want to search the entire database between your pointer 
and the end of the file, you do not have to specify the scope. 
I£ you do want to search the entire file, either specify "all", 
or first position the pointer at the start of the file (GO TOP). 
If you are looking for data in a character field, the data should 
be enclosed in single quotes. Type the following: 


“USE Names* 

“LOCATE FOR Name='"GOU'~ 

“DISPLAY~ 

“LOCATE FOR Zip:Code>'8" .AND. Name < ‘G'~ 
“DISPLAY Name, Zip:Code~ 


If a record is found that meets the conditions in your 
expression, dBASE II signals you with: RECORD n. You can display 
or edit the record once it is located. 


If there may be more than one record that meets your conditions, 
type “CONTINUE” to get the next record number, 


“CONTINUE~ 
“CONTINUE” 
“CONTINUE” 


If dBASE II cannot find your record within the “scope” that you 
defined, it will display: END OF LOCATE or END OF FILE 
ENCOUNTERED. 
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“FIND* and “LOCATE” are fine for locating individual records and 
data items, but in most applications you will want data summaries 
that include many records that meet certain specifications. The 
“REPORT~ command lets you do this quickly and easily. 


First select the database you want the report from, then create 
the custom format by typing: 


“USE <database>* 
“REPORT™ 


aBASE II then leads you through a series of prompts to create a 
custom format for the report. You specify which fields from the 
database you want, report and column headings, which columns 
should be totalled, etc. The standard defaults are 8 columns 
from the left edge of the paper for the page offset, 56 lines per 
page, and a page width of 80 characters. 


The <Names> and <Orders> databases that we've used aS examples so 
far don't have enough data in them to really show you how 
powerful dBASE II can be, so from now on we will be using 
<MoneyOut.DBF> and other databases that are part of an existing 
business system. (The entire system is in Section VI, including 
database structures and the command files that run it.) 


This would be a good time for you to create a database that you 
would actually use in your business. Enter data in it, then 
substitute it for <MoneyOut> in our examples. 
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When you have defined all the contents of the report, press 
RETURN when prompted with the next field number. dBASE II 
immediately starts the report to show you what you have 
specified, and will go through the entire database if you let it. 
To stop the report, press the ESCAPE key. 


At the same time, dBASE II saves the format in a file with the 
extension .FRM, so that you can use it without having to go 
through the dialog again. The full form of the command is: 
“REPORT FORM <formname> [scope] [FOR <expression>] [TO PRINT]~ 
By typing 

“REPORT FORM JobCosts FOR Job:Nmbr="770'* 


we can get a listing of all the job costs for job number 770 
without having to redefine the format. 


You can change the information in the heading by typing “SET 
HEADING TO character string” (up to 60 characters and spaces, no 
quote marks). The "scope" defaults to “all" when not specified. 


The expression could have been expanded with other conditions, 


and the entire report could have been prepared as a hardcopy by 
adding TO PRINT at the end of the command. 


This report capability can be used for just about any business 
report, from accounts payable (FOR Check:Nmbr=" '), to auto 
expenses (FOR Job:Nmbr="4 ') to anything else you need. 
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Automatic counting and summing (COUNT, SUM) 


In some applications, you won't need to see the actual records, 
but will want to know how many meet certain conditions, or what 
the total is for some specified condition (How many widgets do we 
have in stock? How many are on back order? What is the total of 
eur accounts payable?) 


For counting use: 
“count [scope] {FOR conditions] [TO memory variable]~* 
This command can be used with none, some or all of the modifiers, 


Unqualified, it counts all the records in the database, The 
"scope" can be limited to one or a specified number of records, 
and the “condition” can be any complex logical expression (see 
earlier section on expressions). The result of the count can be 
stored in a memory variable, which is created when the command is 
executed if it did not exist. 


To get totals, use: 
“suM field(s) [scope] [FOR condition] [TO memory variable(s)]” 


You can list up to 5 numeric fields to total in the database in 
USE. If more than one field is to be totaled, the field names 
are separated by commas. The records totaled can be limited by 
using the "scope" and/or conditional expressions after the FOR 
(Client <> 'SEM' .AND. Amount > 10...). 


If memory variables are used (separated by commas), remember that 
totals are stored based on position. If you don't want to store 
the last fields in memory variables but do want to see what the 
amounts are, there's no problem: simply name the first few 
variables that you want, If there's a gap (you want to save the 
first, third and fourth field totals out of six), name memory 
variables for the first four fields then RELEASE the second one 
after the SUM is done. 


58 


Oo 


Summarizing data and eliminating details (TOTAL) 

“TOTAL” works similarly to the sub-total capability in the REPORT 
command except that the results are placed in a database rather 
than being printed out: 


“TOTAL ON <key> TO <database> [FIELDS list] [FOR conditions] * 


NOTE: The database that the information is coming from must 
be presorted or indexed on the key that is used in this 
command. 


This command is particularly useful for eliminating detail and 
providing summaries. The screen shows what happens with our 
<MoneyOut> database: 


“USE b:MoneyOut~ 

“INDEX ON Job:Nmbr TO Jobs” 

“USE b:MoneyOut INDEX Jobs~ 

“TOTAL ON Job:Nmbr TO Temp FIELDS Amount FOR Job:Nmbr >699; 
»AND. Job:NMbr < 8007 

“USE Temp~ 

“LIST* 


The new database has one entry for each job number, and a total 
for all the costs against that job number in our <MoneyOut> 
database. One problem with the new database, however, is that 
only two of the fields contain useful information. 


This can be handled with one more command line, “TOTAL~ 
transfers all the fields if the database named did not exist, but 
uses the structure of an existing database. In the commands 
above, we could have limited the fields in the new database by 
creating it first, before we used the “TOTAL” command: 


“COPY TO Temp FIELDS Job:Nmbr, Amount™ 


Now when we “TOTAL® to <Temp>, the new database will contain only 
the job numbers and totals, Try it with your database. 


This same technique can be used to summarize quantities of parts, 
accounts receivable or any other ordered (SORTed or INDEXed) 
information. 


Section II Summary 


This section has broadened the scope of what you can now do with 
GBASE II. 


We have shown you how different operators (arithmetic, relational 
and string) can be used to modify dBASE Ii commands to give you a 
greater degree of control over your data than is possible with 
other database management systems, 


Since data structures are the basis of database systems, we have 
covered a number of different ways in which you can alter the 
these structures, with or without data in the database, 


We have also shown you how to enter, alter and find the specific 
information you may be looking for. we have also introduced new 
global commands that make it possible For you to turn all that 
data into infomation with a single command (COUNT, SUM, REPORT, 
TOTAL). 


In the next section, we will show you how to set up dBASE II 
command files (programs), so that you can automate your 
information processes. 


Section III: 


Setting up a command file 
(writing your first program) ... 
Making choices and decisions ..... 
Repeating a process . 2... ee 2 eae 
Procedures (subsidiary command files) . 
Entering data interactively during a run 
Placing data and prompts exactly where 
you want them... 2 2 ee ee ee ee ew we ee 69 BSAY. GET 
A command file that summarizes what we've learned 72 
Working with multiple databases ........ . 75 SELECT PRIMARY/SECQMDARY 
Generally useful system commands and functions . . 76 
A few words abovt programming and planning 
your command files 2.6 ew eee ee ee ew we 77 


62 MODIFY COMMAND <file> 
64 IP..ELSE..ENDIF 

DO WHILE... 

67 DO <file> 

68 WAIT, INPUT, ACCEPT 
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If you understand how to write expressions, you are very close to 
being able to write programs. 


There are four basic programming structures that you can use to 
get a computer to do what you want it to do; 


Sequence 
Choice/Decision 
Repetition 
Procedures 


eee 


You've already seen that dBASE II processes your commands 
sequentially in the order in which you give them. In this section 
we'll explain how you make choices (IF...ELSE), how you can make 
the computer repeat a sequence of commands (DO WHILE...), and how 
to use sub-files of commands (procedures). 


Then we'll show you how to use these simple tools to write 


command files (programs) that will solve your applications 
problems. 
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Setting up a command file (writing your first program) 


The commands we've introduced so far are powerful and can 
accomplish a great deal, yet only scratch the surface of the 
capabilities of dBASE II. The full power comes into play when 
you set up command files so that the commands you enter once can 
be repeated over and over. 


When you create a command file you are programming the computer, 
but since dBASE II uses English-like commands, it's a lot simpler 
than it sounds. Also, because dBASE II is a relational database 
management system, you work with increments of data and 
information, rather than bits and bytes. 


To set up a command file, you list the commands you want 
performed in a CP/M file with a <.CMD> extension to its name, 
using WordStar's non-document option. 


dBASE II starts at the top of the list and processes the commands 
one at a time until it is done with the list. 


Other computer languages operate exactly the same way. In BASIC 
the sequence is very visible because each program line is 
numbered. In other languages (dBASE II among them), the sequence 
is implied and the computer will process the first line on the 
page, then the second line, etc. Some languages use separators 
(such as colons) between command statements; dBASE II simply uses 
the carriage return to terminate the command line. 


The only time the sequence is not followed is when the computer 
is specifically told to go and do something else. Usually, 
this is based on some other conditions and the computer must make 
a decision based on expressions or conditions that you have set 
up in the command file. We'll tell you more about this later, 


For now, let's create a command file. 


Use your text editor now to set up a file called <Test.CMD> 
containing the following commands (use Word Star in the program 
mode). If you're using the CP/M editor, type “ED Test.CMD’, then 
use the editing functions to list your commands. 


The end of a line indicates the end of a command (unless you use 


a semicolon), so keep the list of commands as shown on the next 
page. 
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“USE Names~ 

“COPY Structure TO Temp FIELDS Name, ZipCode~ 

“USE Temp” 

“APPEND FROM Names” 

“COUNT FOR Name = 'G* TO G* 

“DISPLAY MEHKORY~ 

“2? ‘We have just successfully completed out first command file.** 


When you're finished, press cntl-W to get back to the dBASE II 
prompt. Now type: 


A> “dBASE Test~ 


If this does not run correctly, you don't have to go back to your 
text editor; instead, use the editor built into dBASE II. Type: 


“MODIFY COMMAND Test~ 


This brings up the command file and you can make minor 
modifications (such as putting in the semicolon so that the field 
name reads <Zip:Code>) without having to leave dBASE II. This 
editor uses all the full-screen editing features described 
earlier. Currently, you can back up only about 5,000 lines, so 
editing should be planned in one direction for larger files. 


This command file itself is trivial but does show you how you can 

perform a sequence of commands from a file with a single system 

command. This is simflar to the way you use .COM files in your 

operating system. 

If you are already in dBASE II (with the dot prompt), you type: 

- “DO <filename>~ 

where <filename> has the <.CMD> extension. 

TIP: You may want to rename the main dBASE file to <DO.COM>, 
So that you can type “DO <filename>~ whether you're in 


your system or in dBASE II. To do this with CP/M, 
type: “REN DO.COM=dBASE.COM~ 


63 


Making choices and decisions (IF, .ELSE) 


Choices and decisions are made in dBASE It with 

IF..ELSE..ENDIF”. This is used much as it is used in ordinary 
English: IF ['m hungry, I'll eat, (OR) ELSE I won't. With a 
computer, you use the identical construction, but do have to use 
exactly the words that it understands. 


Simple decision: If only a single decision is to be made, you can 
drop the ELSE and use this form: 


IP condition [.AND. cond2 .OR. cond3 ....] 
do this command 
(cmd2] 
(errr | 

ENDIF 


The “condition® can be a series of expressions (up to a maximum 
of 254 characters) that can be logically evaluated to being true 
or false. Use the logical operators to tie them together. Using 
our <MoneyOut> file, we might set up the following decision: 


IPF Job:Nmbr = '730' .AND. Amount. > 99.99; 
-OR. Supplier = ‘MAGIC TOUCH’; 
-OR. Bill:Date > '791231' 
do this command 


{emd 2) 
f wee J 
ENDIP 


Tf all the conditions are met, the computer will perform the 
commands listed between the IP and the ENDIF (in sequence), then 
go on to the next statement following the ENDIF. If the 
conditions are not met, the computer skips to the first command 
following the ENDIF. 


Two choices: If there are two alternate courses of action that 
depend on the condition(s), use the IF..ELSE statement this way: 


IP condition(s) 

go command(s) 1 
ELSE 

do command(s) 2 
ENDIF 


The computer does either the First set of commands or the second 
set of commands, then skips to the command following the ENDIF. 
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Multiple choice: Frequently, you have to make a choice from a 
list of alternatives, An example might be a the use of a screen 
menu to select one of several different procedures that you want 
to perform, In that case, you use the IF..ELSE..IF construction, 


This is the same IF..ELSE that we've described, but you use it in 
several levels (called “nesting"), as shown below. 


IF conditions 1 
do commands 1 
ELSE 
IP conditions 2 
do commands 2 
ELSE 
IP conditions 3 
do commands 3 
ELSE 


ENDIF 3 
ENDIF 2 
ENDIF 1 


This structure can be nested as shown as far as it has to be to 
choose the one set of commands required from the list of 
alternatives. It is used frequently in the working accounting 
system at the end of Part I. 


Notice that each IF must have a corresponding ENDIF or your 
program will bomb. 


TIPs GBASE II does not read the rest of the line after an 


ENDIF, so you can add in any identification you want 
to, as we did above. It helps keep things straight. 
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Repeating a process (DO WHILE..) 


Repetition is one of the major advantages of a computer. It can 
continue with the same task over and over without getting bored 


or making mistakes because of the monotony. This is handled in 
most computer languages with the DO WHILE construction: 


DO WHILE conditions 
do command (s) 
ENDDO 


If the conditions you specify are logically true, the commands 
listed will be performed. 


tip: Remember that these commands must change the conditions 
eventually, or the loop will continue forever. 


When you know how many times you want the process repeated, you 
use the structure like this: 


STORE 1 TO Index (Start counter at 1) 
DO WHILE Index < ll (Process 10 records) 
IF Item = ' ' {1£ there is no data, 
SKIP skip the record and 
Loop go back to the DO WHILE, 
ENDIF blank without doing ProcessA) 
DO ProcessA (Do file processA.CMD) 


STORE Index+l TO Index (Increase counter by 1) 
ENDDO ten times 


In this example, if there is data in the <Item> field, the 
computer performs whatever instructions are in another command 
file called ProcessA.CMD, then returns to where it was in this 
command file. It increases the value of the variable Index by l, 
then tests to see if this value is less than ll. 1f it is, the 
computer proceeds through the DO WHILE instructions again. When 
the counter passes 10, the computer skips the loop and performs 
the next instruction after the ENDDO. 


The LOOP instruction is used to stop a sequence and cause the 
computer to go back to the start of a DO WHILE that contains the 
instruction. 


In this case, if the Item field is blank, the record is not 
processed because the LOOP command moves the computer back to the 
DO WHILE Index < 1]. The record with the blank is not counted, 
since we bypass the command line where we add 1 to the counter. 


The problem with LOOP is that it short-circuits program flow, so 


that it's extremely difficult to follow program logic. The best 
solution is to avoid the Loop instruction entirely. 
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Procedures (subsidiary command files) 


The ability to create standard procedures in a language greatly 
simplifies programming of computers. 


In BASIC, these procedures are called sub-routines. In Pascal 
and PL/I, they are called procedures, In dBASE II they are 
command files that can be called by a program that you write. 


In our previous example, we called for a procedure when we said 
DO ProcessA. "“ProcessA" is another command file (with a .CMD 
extension to its name). The contents of this command file might 
be: 


IF Status = M 
DO PayMar 
ELSE 
IP Status = S 
DO PaySingle 
ELSE 
IF Status = H 
DO PayHouse 
ENDIF 
ENDIF 
ENDIF 
RETURN 


Once again, we can call out further procedures which can 
themselves call other files. Up to 16 command files may be open 
ata time, so if a file is in USE, up to 15 other files can be 
open. Some commands use additional files (REPORT, INSERT, COPY, 
SAVE, RESTORE and PACK use one additional file; SORT uses two 
additional files). 


This is seldom a limitation, however, since any number of files 
can be used if they are closed and no more than 16 are open at 
any time. 


A file is closed when the end of the file is reached, or when the 
“RETURN* command is issued by a command file. The “RETURN*® 
command returns control to the command file that called it (or to 
the keyboard if the file was run directly). 


The “RETURN~ command is not always strictly necessary, as control 
returns to the calling file when the end of a file is 
encountered, but it is good programming practice to insert it at 
the end of all your command files. 


*Big tip*: Notice that the command lines are indented in our 
examples. This is not necessary, but it increases 
command file clarity tremendously, especially wher you 
have nested structures within other structures. Using 
all uppercase for the commands, and both upper- and 
lowercase for the variables helps, too. 


Entering data interactively during a run (WAIT, INPUT, ACCEPT 


For many applications, the command files will have to get 
additional data from the operator, rather than just using what is 
in the databases. 


You command files can be set up so that they prompt the operator 
with messages that indicate the kind of information that is 
needed. One good example is a menu of functions from which one 
is selected. Another use might, be to help ensure that 
accounting data is entered correctly. The following commands 
can do this. 


“WAIT (TO memory variable] ~ 
halts command file processing and waits for a _ single 
character input from the keyboard with a WAITING prompt. 
Processing continues after any key is pressed (as with the 
@BASE II DISPLAY command). 


If a variable is also specified, the input character is 
stored in it. If the input is a non-printable character 
(<enter>, control character, etc.), a blank is entered into 
the variable. 


“INPUT ['prompt'] TO memory variable~ 


accepts an data type from the CRT terminal to a named 
memory variable, creating that variable if it did not exist. 


If the optional prompting message (in single or double 
quotes, but both delimiters the same) is used, it appears on 
the user terminal followed by a colon showing where the data 
is to be typed in. The data type of the variable 
(character, numeric or logical) is determined by the type of 
data that is entered. Character strings must be entered in 
quotes or square brackets. 


“ACCEPT ['prompt’] TO memory variable~ 


accepts character data without the need for delimiters. 
very useful for long input strings. 


Tips on which to use when: 


WAIT can be used for rapid entry (reacts instantly to an 
input), but should not be used when a wrong entry can do 
serious damage to your database. 


ACCEPT is useful for long strings of characters as it does 
not require quote marks. It should also be used for single 
character entry when the need to press RETURN can improve 
data integrity. 


INPUT accepts numeric and logical data as well as 
characters, can be used like ACCEPT. 
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The “27, “ACCEPT” and “INPUT* commands can all be used to place 
Prompts to the operator on the screen, 


Their common drawback for this purpose is that the prompts will 
appear just below the last line already on the screen. This 
works, but there's a better way 


Another dBASE II command lets you position your prompts and get 
your data from any position you select on the screen: 


“@ <coordinates> [SAY <‘prompt'’>]* 


This will position the prompt (entered in quotes or square 
brackets) at the screen coordinates you specify. The coordinates 
are the row and column on the CRT, with 0,0 being the upper left- 
hand “home” position. If we specified "9,34" as the coordinates, 
our prompt would start on the 10th row in the 35th column. 


Note: The prompt will be at half intensity 


The SAY.. is optional because this command can also be used to 
erase any line (or portion of a line) on the screen. Bring dBASE 
II up and type: 


°“ ERASE~ 

“@ 20,30 SAY ‘What?'"~ 

“@ 5,67 SAY ‘Here...'* 

“@ 11,11 SAY °That's all."* 
“@ 20, O07 

“e 

“e@ 


Instead of just showing a prompt, the command can be used to show 
the value of an expression with one or more variables. The form 
is: 


“@ <coordinates> [SAY <expression>) ~ 
Type the following in dBASE II: 
“USE Names” 

“@ 13,9 SAY Zip:Code”™ 

“@ 13,6 SAY State” 


“SKIP 3° 
“@ 23, 5 SAY Name + ', * + Address” 
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The command can be expanded further to show you the values of 
variables being used (memory variables or field names in a 
database) at whatever screen position you specify. (The 
variables used by both GET and SAY must exist before you call 
them out or you will get an error.) 


“@ <coordinates>[(SAY <expression>) [GET <variable>)~* 


To see how this works, type the following (do NOT QUIT GBASE when 
you're done--there's more to come): 


“ERASE” 

“USE Names™ 

“@ 15, 5 SAY ‘State’ GET State™ 

“@ 10,17 GET Zip:Code™ 

“@ 5, 0 SAY 'Name' GET Name™ 
(Stay in dBASE) 


This sequence has positioned the values of the variables (with 
and without prompts) at various places on the screen, With this 
facility, you can design your own input forms so that the screens 
that your operator sees will look just like the old paper forms 
that were used before, 


To get data into the variables on the screen at your chosen 
locations, type: 


READ 


The cursor positions itself on the first field you entered. You 
can now type in new data, or leave it the way it was by pressing 
RETURN. When you leave this field, it goes to the second variable 
you entered, 


Change the data in the remaining two fields. When you finish 
with the last one, you are back in dBASE II. Now type “DISPLAY”. 
The record now has the new data you entered, 


AS you can see, GET works somewhat like the INPUT and ACCEPT 
commands, It is much more powerful than either because it allows 
you to enter many variables. 


A database may have a dozen or two fields (up to 32), but for any 
given data entry procedure, you may be entering data in only half 
a dozen of those. Rather than using APPEND, which would list all 
the fields in the database on the screen, you can use “APPEND 
BLANK” to create a record with empty fields, then GET only the 
data you want. 


Our <Names> file is not a good example (the accounting system at 


the end of this section is better), but we can use it to show how 
to selectively get data into a database with a large structure, 
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*) 


To give you more practice with command files, create a file 
called <Trial.cmMpD> with the following commands in it: 


“ERASE™ 

“2 'This procedure allows you to add new records to the'* 
“2? 'NAMES.DBP database selectively. We will be adding'~ 
“? ‘only the Name and the Zip:Code now.'~ 

->° 

“2? ‘Type S to stop the procedure,'~ 

-? "<return> to continue.'” 

“WAIT TO Continue” 


“USE Names” 

“pO WHILE Continue <> 'S* .AND. Continue <> 's'* 
APPEND BLANK” 

ERASE” 

@ 10, 0 SAY "NAME" GET Name” 

@ 10,30 SAY “ZIP CODE" GET Zip:Code” 

READ™ 


a ?' § to stop the procedure,'* 
? ‘<return> to continue.'* 
WAIT TO Continue” 

“ENDDO~ 

“RETURN” 


When you're back to CP/M, type “dBASE Trial* (or “po Trial” if 
you renamed the dGBASE.COM file as we suggested). Now enter data 
into several records. After you've finished, LIST the file to see 
what you've added. 


AS you can see, data entry is simple and uncluttered, 
The screen can be customized by placing prompts and variable 


input fields wherever you want them. 


NOTE: You must use the “ERASE~ or “CLEAR GETS” command after 
every 64 “GET's*. Use the latter command if you do not 
want to change the screen. 
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A command file that summarizes what we've learned 
Before you read on, you can enter and run the following file to 
see what it does. Type “dBASE Sample~ if you're in CP/M or “DO 
Sample~ if you're in dBASE II. Respond to the prompts. After 
you've run it, you can come back and go through the 
documentation, It summarizes most of what we've covered so far 
and includes copious commentary. 


RERERERAREREREKREREK SAMPLE. CMD ER RRRAR ARAN RAR A RRA 


This command file prompts the user with screen 
Messages and accepts data into a memory variable, then 
performs the procedure selected by the user. This is only 
a program fragment, but it does work. 

We haven't written the procedures that are called 
by the menu yet, so instead, we can have the computer 
perform some actions that show us what it does 
and which paths it takes (stubbing). 

Normally, dBASE II shows the results of the commands 
on the CRT. This can be confusing, so we SET TALK OFF. 


eee ee ee ee 


SET TALK OFF 
USE MoneyOut 


ERASE 

* It's good housekeeping to erase the screen before you 
* display any new data on it. 

* our substitute display function can be used to put 
* information on the CRT screen like this: 

? 

? 

? 

? 

2! OUTGOING CASH MENU’ 

? 

? 

2¢ 0 = Exit’ 

et 1 = Accounts Payable Summary‘ 

aa 2 = Enter New Invoices’ 

7° 3 = Enter Paygents Made’ 

? 

2° Your Choice is Number’ 

WAIT TO Choice 

ERASE 


* since we haven't developed the procedures to do these 
* three items yet we'll have the computer display 

* different comments, depending on which alternative is 
* selected from the menu. 
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IF Choice = 'j! 
@ 0,20 SAY ‘One' 


ELSE 
IF Choice = '2° 
@ 1,20 SAY 'Two!' 
ELSE ae 
IF Choice = '3' 
@ 2,20 SAY 'Three' 
ELSE 
@ 7,20 
@ 8,20 SAY ' ANY OTHER CHARACTER INPUT EXCEPT 1, 2, OR 3 
@ 9,20 SAY ' CAUSES THIS COMMAND FILE TO TERMINATE AFTER 
@ 10,20 SAY ' PRINTING OUT THIS MESSAGE. NOTICE THAT THE 
@ 11,20 SAY ' DIGITS HAD TO BE IN QUOTE MARKS IN THE “IF" 
@ 12,20 SAY ' STATEMENTS ABOVE BECAUSE THE WAIT COMMAND 
@ 13,20 SAY ' ACCEPTS ONLY CHARACTER INPUTS 
@ 14,20 say '' 
ENDIF 3 
ENDIP 2 
ENDIF 1 
* Each IF must have a corresponding ENDIF. We've also 
™ put a label after the ENDIF to indicate which IF it 
* belongs with, to make certain that we have closed all 
* 


the loops. 


wo aw 


INPUT "Do you want to continue (Yes or No)?' TO Decision 
ERASE 
IP Decision 
INPUT "Okay, let's have a number, quickly." TO Number 
ELSE 
@ 10,20 SAY “ WHY NOT? * 
WAIT 
ENDIF 
ERASE 
@ 10,20 SAY “ I'M NOT READY FOR THAT. GOOD-BYE. ° 


before the program terminates. You may find this useful 


+ ee 


* either change the limit (100) or the step (+ 1). 
STORE 1 TO X 
DO WHILE X < 100 
STORE X + 1 TO X 
ENDDO 
ERASE 
RETURN 
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This next DO WHILE loop provides a delay of a few seconds 
to keep the last message on the CRT long enough to be read 


in command files that you write. To change the delay time, 


You may want to run the program again. Try all the alternatives, 
then try entering inputs that are definitely wrong. you'll see 
how the program works and how dBASE II handles errors. 


While it's only a program fragment and doesn't do any useful 
work, <Sample.CMD> does point up quite a few things: 


1. Using ERASE frequently is good*housekeeping that's easy to 
do, 


2. Using indentation helps make the operation of the program 
clearer, That's also why we used upper- and lowercase 
letters, The computer sees them all as uppercase, but this 
way is much easier for us humans. 


3. The °"?" can be used to space lines on the display and to 
show character strings (in quotes or brackets). 


4. The WAIT command waits for a single character before letting 
the program move on, The input then must be treated as a 
character, the way we did in the nested IF's by putting 
quotes around the values we were looking for. 


5. The INPUT command waits for and accepts any data type, but 
characters and strings must be in single or double quotes or 
square brackets, When you have an apostrophe in your 
message, use the double quote or square brackets to define 
the string or the computer gets confused. 


6. you don't have to predefine variables, Just make up another 
name whenever you need one (up to a maximum of 64 active at 


any one time). 


7. Logical values can be treated in shorthand, “IF Decision" 
in the program worked as if we had said: "IP Decision = T*. 


8. The RETURN at the end of the program isn't necessary, but 
was tacked on because you would need it if this were a sub- 
procedure in another command fille, That's how the computer 
knows that it should go back where it came from, rather than 
just quitting. 
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Working with multiple databases (PRIMARY, SECONDARY, SELECT) 


As we've seen, when you first start working with DBASE II, you 
type “USE <filename> to tell dBASE II which file you're 
interested in, then proceed to enter data, edit, etc. 


To work on a different database, you type “USE <wewFile>”. dBASE 
II closes the first file and opens the second one, with no 
concern on your part. You can use any number of files this way, 
both from your terminal and in command files. You can also close 
a file without opening a new one by typing “USE*. 


When you USE a file, dBASE II “rewinds* it to the beginning and 
positions you on the first record in the file. In most cases, 
this is exactly what you want. In some applications, however, 
you will want to access another file or files without “losing 
your place" in the first file. 


GBASE II has an exceptionally advanced feature that permits you 
to work in two separate active areas at the same time; PRIMARY 
and SECONDARY. You switch between them with the “SELECT* command. 


You are automatically placed in the PRIMARY area when you first 
start. To work on another database without losing your position 
in the first one, type in “SELECT SECONDARY”, then “USE 
<newfile>*, To get back to the original work area, type “SELECT 
PRIMARY”, then continue with that database. 


The two work areas can be used independently. Any commands that 
move data and records operate only in the area in USE. 


Information, however, can be transferred from one area to the 
other using P. and S. as prefixes for variables. If you are in 
the PRIMARY area, use the S. prefix for variables you need from 
the SECONDARY area; if you are in the SECONDARY area, use the P, 
prefix for variables you need from the PRIMARY area. 


As an example, this command is used in the <NameTest.CMD> file in 
the accounting system at the end of this Part of the manual. 
Individual records in a file in the PRIMARY area are checked 
against all the records in another file in the SECONDARY area. 


The same command is also used in the <Timecalc.cmMD>, 
<DepTrans.CMD> and <payroll.CMD> files. 


While you may not think of an application now, keep the command 
in mind: you'll find it useful. 
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Generally useful system commands and functions 


MODIPY COMMAND <filename> lets you modify the named command file 
directly from dBASE II using the normal full screen editing 
features, 


BROWSE displays up to 19 records and as many fields as will fit 
on the = screen, To see fields off the right edge of the 
screen, press cntl-B to scroll right. Press cntl-z to scroll 
left, 


CLEAR resets GBASE II, clearing all variables and closing all 
files, 


RESET is used after a disk swap to reset the operating system bit 
map. Please read the detailed description in the command 


dictionary (part II) before using it. 


® allows comments in a command file, but the comments are not 
displayed when the command file is executed. This allows 
notes to the programmer without confusing the operator. 
There must be at least one space between the word or symbol 
and the comment, and the note cannot be on the same line as 
a command, REPEAT: commands and comments must be on 
separate lines. 


REMARK allows comments to be stored in a command file, then 
displayed as prompts to the operator when the file is used. 
There must be at least one space between the word and _ the 
remark, and the remark cannot be on a command line. 


RENAME <oldfile> TO <newfile> changes file names in the CP/M 
directory. Do NOT try to rename files in USE. 


QUIT TO ‘<system .COM file list>* allows you to terminate dBASE 
II and automatically start execution of CP/M and other .COM 
files. Each .COM file named must be in single quotes, and 
separated from other file names (in single quotes) by 
commas, 


You can also use the “?* command to call out the following 
functions: 


# ais the record number function. When called, it provides the 
value of the current record number, 


* is the deleted record function, and returns a True value iff the 
record is deleted, False if not deleted. 


EOF is the end of file function. It is True if the end of the 
file in USE has been reached, False if it has not been 


reached. 
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A few words about programming and planning your command files 


The first thing to do when you want to set up a command file is 
to turn the computer off. 


fhat's right: that's where many programmers go wrong. They 
immediately start "coding" a solution, before they even have a 
Clear idea of what they're trying to do. 


A much better approach is covered in a number of texts on 
Structured programming and some of the structured languages, One 
reference you might check is Chapter 2 in "An Introduction to 
Programming and Problem Solving in Pascal" by Schneider, Weingart 
and perlman, Another is Chapters 1, 4 and the first few pages of 
7 in "pascal Programming Structures" by Cherry. Then if you 
really want to get into programming, there's an excellent text on 
PL/I called "PL/I Structured Programming’ by Joan Hughes. 


Briefly, here's the approach: 


Start by defining the problem in ordinary English. Make it a 
general statement, 


Now define it further. What inputs will you have? What form do 
you want the § outputs and reports in? 


Next, take a look at the exceptions. What are the starting 
conditions? What happens “Tf a record is missing? 


Once you've defined what you want to do, describe the details in 
modified English. The texts call it "“pseudocode*. All this 
Means is that you use English terms that are somewhat similar to 
the instructions that the computer understands. 


You might write your program outline like this: 


Use the cost database 
Print out last month's unpaid invoices 
Write a check for each unpaid invoice. 


Adding a bit more detail, it looks like this: 


USE CostBase 

Print out last month's unpaid invoices using 
the SUMMARY.FRM file 

Start at the beginning of the database 

And go through to the end: 

If the invoice has not been paid 
Pay the invoice 
And enter it in the database 

Do this for every record 
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In perhaps two more steps, this could be translated into a 
command file like this: 


USE CostBase 

* print a hardcopy summary for December, 1980. 

REPORT PORM Summary POR Bill:Date >= '801201° .AND. 
Bill:Date <= '801231' TO PRINT 


GOTO TOP (Go to the first record) 
DO WHILE .NOT. EOF {Repeat for the entire file) 
IF Check:Nmbr=' ' (If the invoice isn't paid, 
DO WriteCheck write a check, then 
DO Update update the records) 
ENDIF 
SKIP (Go to the next record) 
ENDDO 


The term top-down, step-wise refinement can be applied to this 
procedure, but that's forty-three dollars worth of words to say: 
“Start at the top, then divide and conquer", 


Actually, it's just a sensible approach to solving most kinds of 
problems. First state the overall problem, trying to define what 
it is and what it isn't. Then gradually get into more and more 
detail, solving the details that are easy to solve, putting the 
more complicated details aside for later solution (again, perhaps 
in parts). 


At this stage in our example, we haven't done the <Summary.PRM> 
file nor the <wWriteCheck.CMD> and <Update.CcMD> files, but it 
doesn't matter. 


And in fact, we're probably better off not worrying about these 
details because we can concentrate on the overall problem 
solution, We can come back after we've tested our overall 
solution and clean up these procedures then. 


Tip: You can still test a partial program like this by using 
what programmers call stubs. Set up the command files 
that you've named in the program and enter three items: 
a message that let's you know the program reached it, 
WAIT and RETURN. dBASE II will go to these procedure 
files, give you the message, then return and continue 
with the rest of the program after you hit any key. 
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By now you should be writing command files that can perform 
useful work for you. 


To help you futher, in this section we will introduce more 
functions, a few more commands, and go into quite a bit of detail 
on how you can print out your data in exactly the format you want 
it. 
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Expanding your control with functions 


Functions are special purpose operations that may be used in 
expressions to perform things that are difficult or impossible 
using regular arithmetic, logical and string operations, dBASE 
If functions fall into the same three categories, based on the 
results they generate. 


Functions are called up by typing in *?* then a space and the 
function. They can be called from the terminal or within command 
files. 


NOTE: the parentheses shown below must be used. 


(Remember that “strings*® are simply a collection of characters 
(including spaces, digits and symbols) handled, manipulated and 
otherwise used as data. A "substring" is a portion of any 
specific string.) 


Don't worry about memorizing them now, but do scan the 


descriptions so that you know where to look when you need one of 
them in a command file. 


1(<variable/string>) 


is the lower- EO. 2 ercase function. It changes all the 
characters from -‘z' ina a string or string variable to 
uppercase, Any other characters in the string are 
unaffected, You'll see this used frequently in the 


accounting system (Section VI) to convert inputs from the 
keyboard into a standard form in the files. This makes {it 
simpler when searching for data later, since you will know 
that all of the data is stored in uppercase, regardless of 
how it was entered, 


TYPE (<expression>) 
is the data type function and yields aC, Nor L, depending 
on whether the expression data type is Character, Numeric or 


Logical. 


INT(<variable/expression>) 

is the integer function. It “rounds off" a number with a 
decimal, does It by throwing away everything to the 
right of the decimal, The term inside the parentheses (you 
must use the parentheses) can be a number, the name of a 
Varfable or a complex expression. In the latter case, the 
expression is first evaluated, then an integer is formed 
from the results. 


Note that INT(123.86) yields 123, while INT(-123.86) yields 
-123. A call to a variable yields a truncated integer 
formed from the current value of that variable, If we were 
on record 7 of MoneyOut.DBF, a call to INT(Amount) would 
produce 2333, the integer part of $2,333.75. 
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To round to the nearest whole number (rather than chop), use 
this form: INT(value + 0.5). The value within parentheses 
is first determined, then the integer function of that is 
taken, 


The integer function can also be used to round a value _ to 
any number of decimal places. INT(value*l0 + 0.5)/10 rounds 
a@ value to the nearest decimal place because of the order of 
precedence of operations (parentheses, then integer, then 
divide). To round to two places, use "100" in place of the 
"10"s. For 3 places, use "1000", etc. 


VAL (<variable/string/substring>) 


is the string to integer function. It converts a character 
string or substring made up of digits, a sign and up to one 
decimal point into the equivalent numeric quantity. 
VAL('123') yields the number 123. VAL(Job:Nmbr) yields the 
numeric value of the contents of the job number field in our 
MoneyOut database, since we stored all Job Numbers as 
characters, You can also use it with the substring 
Operator: VAL(S(<string>)). 


STR(<expression/variable/number>, <length>, <decimals>) 


is the Integer to string function. It converts a number or 
the contents of a numeric variable into a string with the 
specified length and the specified number of digits to the 
right of the decimal point. The specified length must be 
large enough to encompass at least all the digits plus. the 
decimal point. If the numeric value is shorter than the 
specified field, the remaining portion is filled with 
blanks. If the decimal precision is not specified, "0" is 
assumed, 


This function is used quite often in the accounting system 
to simplify displays. Numbers are converted to strings then 
concatenated with (joined to) other strings of characters 
for displays. 


LEN (<variable/string>) 


is the string length function. It tells you how many 
characters there are in the string you name, This can be 
useful when the program has to decide how much storage to 
allocate for information with no operator intervention. 
However, if a character field variable name is used, this 
function returns the size of the field, not the length of 
the contents (since any unused positions are filled with 
blanks by dBASE II). 
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$(<expression/variable/string>, <start>, <length>) 
is the substring function, It selects characters from a 
string or character variable, starting at the specified 
position and continuing for the specified length. 


AS an example, if we had a variable called <pate> whose aw) 
value was '810823', the function “$(Date,5,2)~ would give us 

'23'. To convert these numerals to a number, we could use 
“VAL($(Date,5,2)). 


You'll find an example of this in the <DateTest.cmp> file in 
Section VI, where groups of two characters are taken from a 
6-character date field, converted to integers (using the 
VAL(..-) function), then evaluated to see if they are in thé 
correct range. 


Don't confuse this with the substring logical operator 
described in Section II. 


@(<variablel/stringl>, <variable2/string2>) 
is the substring search function. You might think of this 
as “Where S stringl AT In string2?" When you use this 
function, it produces the character position at which the 
first string or character variable starts in the second 
string or character variable, If the first string does not 
occur, a value of "0" is returned. 


One use for this is to find out where a specific string 
starts so that you can use the preceding substring function. 
Another use is to find out if a specific string occurs at 
all. 


(If you only need to know whether one string is in another 
one, you can use the relational string operator: 


Stringl$string2, Section II.) 


you'll find these useful in a command file when the computer 
is searching without operator intervention, and you can't 
simply step in and look to see where the data is. 


CHR (<number>) 
yields the ASCII character equivalent of the number, On the 
Osborne 1 ? CHR(26) clears your screen, CHR(27) and CHR (41) 
produces reverse video and ? CHR(27) and CHR (40) cancels 
it. Other functions can be used to control hardware 
devices, such as a printer. Check your manual--you'll 
probably find a few interesting features. 


To get underlining on your printer, try joining a character 
string, the carriage return and the underline like this: ? 


‘string’ + CHR(13) +‘ ‘. You could even set up a command 
file that uses the LEN function to find out how long the 
string is, then produces that many underline strokes. oO 
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is the macro substitution function. When the symbol is used 
in front of a memory variable name, dBASE II replaces the 
name with the value of the memory variable (must be 
character data). This can be used when a complex expression 
must be used frequently, to pass parameters between command 
files, or in a command file when the value of the parameter 
will be supplied when the program is run. 


In the <Reportmenu.CMD> file in Section vi, it is used to 
get the name of the required database: 


? ‘which fille do you want to review?* 
ACCEPT TO Database 
USE &Database 


It could also be used as an abbreviation of a command: 
“STORE ‘Delete Record' TO D”. The command: “&D 5” would 
then delete record 5 when the program runs. 


If the macro command is not followed by a valid string 
variable, it is skipped. This means that you can use the 
symbol itself as part of a string without getting an error 
indication. 


FILE(<"filename"/variable/expression>) 


TRIM 


yields a True value if the file exists on the disk, False if 
it does not. I£f£ you use a specific file name, use the quote 
marks. The name of a string variable does not require the 
quote marks. You can also use any valid string expression: 
“PILE("B:"+Database)~ would tell you whether the file name 
stored in the memory variable <Database> is on drive B (see 
ReportMenu.CMD in Section VI). 


eliminates the trailing blanks in the contents of a_ string 
variable. This is done by typing: 


“STORE TRIM (<variable>) TO <newvariable>~ 
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dBASE If has a number of commands that control how it interacts 
with your system setup. You can change these parameters back and 
forth “on the fly", or set them up once at the beginning of your 
command file and leave then, In many applications, the defaults 
will be just what you need. 


Parameters are changed in your command files (or interactively) 
by using the SBT command, In the list below, normal default 
values are underlined, 


Once again, there's no need to memorize these. As you work with 
the established defaults, you can decide if you want to change 
any of the parameters on the list. 


SET TALK ON Displays results from commands on console. 
OFF No display. 


SET PRINT ON Echoes all output to your 'list' device. 
OFF No listing. 


SET CONSOLE ON Echoes all output to your console, 
OFF Console off. 


SET SCREEN ON Turns on full screen operation for APPEND, EDIT, 


INSERT and CREATE commands. 
OFF Turns full screen operation off. 


SET FORMAT TO SCREEN sends output of @ commands to the screen 
SET FORMAT TO PRINT sends output of @ commands to the printer 


SET MARGIN TO <nnn> sets the left-hand margin on your printer 
(*nnn*<=254) 


SET RAW ON DISPLAYS and LISTs records without spaces between the 
fields 
OFF DISPLAYS and LISTs records with an extra space 
between fields 


SET HEADING TO <string> changes the heading in the REPORT command 
SET ECHO ON All commands in a command file are displayed on your 
console as they are executed. 
OFF No echo 


SET EJECT ON enables page feed with REPORT command 
OFF disables page feed 
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SET STEP ON Halts after completing each command, for debugging 
command files. 


OFF Normal continuous operation. 


SET DEBUG ON sends output from the ECHO and STEP commands to the 
printer only 


OFF sends ECHO and STEP output to the screen 


SET BELL ON enables bell when field is full 
OFF disables bell 


SET COLON ON uses colons to delimit input variables on the 
screen 
OFF disables the colons 


SET CONFIRM ON waits for ¢return> before leaving a variable 
during full screen editing 
OFF leaves the variable when the field is full 


SET CARRY ON carries data from the previous record forward to 
the new record when in APPEND 
OFF shows a blank record in APPEND mode 


SET INTENSITY ON enables duai intensity for full screen 
operations 
OFF disables dual intensity 


SET LINKAGE ON permits databases to be linked for display with 
up to 64 fields and up to 2000 bytes per displayed 
record. The P. or S. prefix must be used when field 
nMames are similar in both databases 

OFF disables linkage 


SET EXACT ON requires that all characters in a comparison 
between two strings match exactly 
OFF allows different iength strings, E.g., 


"ABCD'='AB' would be True (Also affects FIND command) 


SET ESCAPE ON allows the <escape> key to abort command file 
execution 
OFF disables the <escape> key 


“SET ALTERNATE TO <filename>“ creates a file with a .TXT 
extension for saving everything that goes to your CRT screen. To 
start saving, type “SET ALTERNATE ON”. 


You can change tre file that you are saving to by typing “SET 
ALTERNATE TO <newfile>”. 


To stop, type “SET ALTERNATE OFF”. This also terminates when 
your QUIT dBASE II. 


85 


Merging records from two databases (UPDATE) 


Data can be transferred from one database file to another with 
the following command: 


UPDATE FROM <database> ON <key> [ADD <field list>] 
(REPLACE <field list>] 


Note: Both databases must be presorted on the “key” field before 
this command is used. 


Both files are “rewound” to the beginning, then key fields are 
compared, If they are identical, then data from the FROM data 
base is either added numerically to data in the USE file, or is 
used to geprace data in the use file for the fields specified in 
the field list. When Fields do not match, those records are 
skipped. This command can be used to keep inventory updated, for 
example, 


In the accounting system in Section VI, it is used in 
<Payroll.cMD> and <CheckStub.CMD>. It's useful and worth 
experimenting with. 
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JOINing entire databases 


JOIN is one of the most powerful commands in dBASE II. It can 
combine two databases (the USE files in the PRIMARY and SECONDARY 


work areas) to create a third database. The form of the command 
is: 


JOIN TO <newfile> ON <expression> {FIELD <list>] 


In operation, the command positions dBASE II on the first record 
of the primary USE file and evaluates each of the records in the 
secondary USE file, Each time the "expression" yields a true 
result, a record is added to "newfile", If you are in the 
Primary area when you issue the JOIN command, prefix variable 
names from the secondary USE file with s.. If you are in the 
secondary area, prefix variables from the primary USE file with 
P.. (See example below.) 


When each record in the secondary USE file has been evaluated 
against the first record of the primary USE file, dBASE II 
advances to the second record of the primary USE file, then 
evaluates all of the records from the secondary USE file again. 
This is repeated until all records from the files have been 
compared against each other. 


Note: This can take a great deal of time to complete if the 
two databases are very large. It may also not be 
possible to complete at all if the constraints are too 
loose, Two files with 1,000 records each would create 
a JOIN database with 1,000,000 records if the JOIN 
expression was always true, while dBASE Ii is limited 
to 65,535 records in any single database. 


To use the command, use this sequence of instructions: 


USE Inventory 

SELECT SECONDARY 

USE Orders 

JOIN TO NewFile FOR P.Part:Number=Part :Number; 
FIELD Customer,Item,Amount ,Cost 


This creates a new database called <NewFile.DBF> with four 
fields: Customer, Item, Amount and Cost. The structure of these 
fields (data type, size) are the same as in the two joined 
databases. (Notice that the "Pp." prefix is used to call a 
variable from the work area not in USE.) 
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Full screen editing and Formatting (@..SAY..GET..PICTURE) 


dBASE II has a powerful series of formatting commands that allow 
you to position information precisely where you want it. 
You saw this in action in our <Sample.CMD> program, where we 
used: 


@ <coordinates> SAY ["prompt'] GET <variable> 


This command was able to position prompts and variables (and 
their values) at any location we specified on the screen, When 
we listed a series of commands, then followed them with READ, we 
were able to control the format of the entire screen. You might 
want to create and run the following command file fragment to 
refresh your memory: 


STORE " “ TO MDate 

STORE ” " TO MBalance 

STORE * " TO MDraw 

@ 5,5 SAY “Set date MM/DD/YY “ GET MDate 

@ 10,5 SAY "What is the balance? " GET MBalance 

@ 15,5 SAY “How much is requested" GET MDraw 

READ 

ERASE 

@ 5,5 SAY_"Should we do an evaluation?" GET MEvaluate 
READ 


The command can also be used without the SAY phrase as @ 

<coordinates> GET <variable> (with a later READ in the command 

file). This displays only the colons delimiting the field length 

for the variable. 

Tip: In the SCREEN mode the line numbers do not have to be 
in order, but it's good practice to write them this way 
since they must be in order for PRINT formatting. 


This command can also be expanded for special formatting like 


this: ’ 


@ <coordinates> SAY [expression] GET <variable> [PICTURE <format>] 
The optional PICTURE phrase is filled in using the format symbols 
listed below. The command: 

@ 5,1 SAY “Today's date is* GET Date PICTURE '99/99/99' 

would display: 

Today's date is: / / : 


assuming, that the Date variable was blank. In this example, only 
digits can be entered, 
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The GET function symbols are: 


9 or #@ accepts only digits as entries. 
accepts only alphabetic characters. 
converts character input to uppercase. 
accepts any characters. 

shows '$' on screen. 

shows '*' on screen. 


anKm— 


with this command, you can format your menu and input screens any 
way you want them, quickly and easily. 


Tip: The Osborne/McGraw-Hill series of accounting books, 
besides describing some fairly sophisticated systems, 
also includes CRT Mask Layouts for menus and entry 
formats with coordinates clearly marked. Well worth 
their price for this alone. 
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Formatting the printed page (SET FORMAT TO PRINT, @..SAY..USING) 


When you SET FORMAT TO PRINT, the @ command sends its information 
to the printer instead of the screen. 


The GET and PICTURE phrases are ignored, and the READ command 
Cannot be used. 


Data to be printed on checks, purchase orders, invoices or other 
standard forms can first be organized on the screen with this 
command, then printed exactly as you see it: 


@ coordinates SAY variable/expression/'string' (USING format] 


In increasing order (print line 7 before line 9, etc.). On any 
given, line the columns must be in order (print column 15 before 
column 63, etc.). 


As in the SCREEN mode, the GET phrase can be used to output the 
current value of a variable that you name, the result of an 
expression, or a literal string prompt message. 


If the USING phrase is included, this command specifies which 
characters are printed as well as where they appear on the page. 
the symbols used are: 


9 or # prints a digit only. 

A prints alphabetic characters only. 

x prints any printable character. 

$ prints a digit or a '$' in place 
of a leading zero. 

* prints a digit or a '*' in place 
of a leading zero. 


The command 10,50 SAY Hours*Rate USING '$$$$$$$.99' could be used 
in both the screen and the printer modes since it has no GET 
phrase, Por Hours = 8 and Rate =12.73, it would print or display 
$$$$101.84, useful for printing checks that are more difficult to 
alter. : 
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Setting up and printing a form 


To set up a form, use measurements based on your printer spacing 
(ours prints 10 characters per inch horizontally, with 6 lines 
per inch vertically). 


The “Outgoing Cash Menu" that we used in our earlier command file 

could very well have had another selection item called “4 = write 

ac so we're going to do part of the WriteCheck command 
ile. 


To start with, we'll have to input the date. The following 
command lines accent the date to a variable called MDate, and 
checks to see whether it is (probably) right: 


ERASE 

SET TALK OFF 

STORE “ “ TO MDate 

STORE T TO NoDate 

DO WHILE NoDate 
@ 5,5 SAY “Set date MM/DD/yY” GET MDate PICTURE "99/99/99" 
READ 
IF VAL($(MDate,1,2)) < 1; 


.OR. VAL(S(MDate,1,2)) > 12; 
-OR. VAL(S(MDate,4,2)) < 1; 

.OR. VAL(S(MDate,4,2)) > 31; 
.OR. VAL($(MDate,7,2)) <> 81 


STORE “ ° TO MDate 
@ 7,5 SAY "**** BAD DATE, PLEASE RE-ENTER. ‘***** 
STORE T TO NoDate 


ELSE 
STORE F TO NoDate 
ENDIF 
ENDDO (because we now have a valid date) 
ERASE 


In English, the above first sets the value of MDate to 8 blanks, 
then the @..SAY command displays: 


Set date MM/DD/YY: / / : 
When the date is entered, it is checked by the IF to see whether 
the month is in the range 1-12, day is in the range 1-31, and 
year=81. This is done in three steps: 
- the substring function $ takes the two characters 
representing the month, day or year (e.g., for month 
it starts in the 4th position and takes 2 characters) 
- the VAL function converts this to an integer 


- this integer is then compared against the allowed 
values 
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If the value is out of range, MDate is set to blanks again and an 
error message comes up. When a date within the allowed range is 
entered, the program continues, 


The printout for the check itself could be the next portion of 
the program, Using the measurements of our checks,. this is the 
list of commands: 


@ 8,3 SAY Script (A character variable that prints the 
amount in script. This is filled in 
by another procedure called Chng2Scrpt. 
We stubbed this for now like this: 

STORE ‘Script Stub' TO Script 
RETURN) 

11,38 SAY Vendr:Nmbr 

11,50 SAY MDate 

11,65 SAY Amount 

13,10 SAY Vendor 

14,10 SAY Address 

15,10 SAY City:State 

15,35 SAY ZIP 

17,10 SAY Who 


You can check this out on your screen before you print it, then 
switch from SCREEN to PRINT modes with the SET command. The 
values for the variables are provided elsewhere in your command 


file. 


Longer forms are no problem: simply start the line numbering over 
every 24 lines (0 to 23). 
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Time to regroup 


Because dBASE II is such a powerful system, it has a large number 
of commands and techniques for dealing with your database needs 
and allowing you to get more information more easily than any 


other database system or file handler currently running on 
micros. 


The easiest way to learn the techniques is to go through the 
examples and key them into your computer, changing names as you 
go to reflect your needs rather than our examples. 


You start by using the CREATE command to create your databases. 
Besides MoneyOut.DBF, we've created a number of other database 
structures that you might find useful. They're listed at the 
beginning of Section VI. 


The <Costbase.pBF> file started life as <MoneyOut.DBF>. We've 
modified it a great deal, changing field names and sizes (with 
and without data in the database). 


We've also added our own spacing between the fields (see fields 
S, 7 and 10), rather than using the dBASE II “RAW" default of a 
space between each field. 


NOTE: You can NOT enter the hyphen as a field name when you 
CREATE a file. To enter it, you have to MODIFY 
STRUCTURE, use cntl-N to insert a blank line, then type 
in the hyphen and the field size. cCntl-w saves the 
change, 


You may want to check some of the other database structures, then 
see how they are used in the programs. We tried to keep. the 
field names and their individual structures the same for all our 
databases to allow for file merges and other uses, Data from one 
database will fit into corresponding fields in another, and with 
common names the transfer is straightforward. 


You might want to check through the command files in Section vt 
now. Most of the dBASE II commands have been used, and the files 
work the way they are set up. 


The first command file is the main menu for the system, with sub- 
files selected by pressing a number. Some of the files get a bit 
complicated (<payroll> for example), so you might go to some of 
the utility programs at the end of Section VI before you try to 
unravel the rest of the programs. 


Writing these command files, we used exactly the procedures that 
we recommended earlier: first define the problem in a general 
sense. Gradually keep dropping down in levels of detail, using 
ordinary English at first, then pseudocode, putting terms that 
dBASE II would understand in capitals when we finally got to that 
level. 
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When we came up with something that had to be done, but we 
weren't sure how to do it, we simply made up a procedure name for 
it, then went back to it later. 


The indentation and mixture of upper- and lowercase letters was 
not done just for this manual: it's the way we work all the time. 
It makes writing the command files a lot easier because you can 
see groupings of the structures that you are using. 


The identifiers were pulled out of our semi-English pseudocode, 
modified a bit to fit within the 10 characters allowed, but not 
enough to destroy the meaning. 


Comments are sprinkled throughout the files for documentation, 
although in many cases the programs are almost self-documenting 
because so many of the dBASE II commands are similar to English 
equivalents. 
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Section V: 


Database basics 
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Database Basics 


A database management system (DBMS) like dBASE II is considerably 
different from a file handling system, 


A file handling system is usually configured like this: 


PAYROLL PAYROLL PAYROLL 
FILES PROGRAMS OUTPUT 
ACCOUNTING ACCOUNT ING ACCOUNTING 
FILES PROGRAMS OUTPUT 
INVENTORY INVENTORY INVENTORY 
FILES PROGRAMS OUTPUT 


The payroll programs process the payroll files. The accounting 
Programs process the accounting files. And the inventory 
Programs process the inventory files, To get reports that 
combine data from different files, a new program would have to be 
written and it wouldn't necessarily work: the data may be 
incompatible from file to file, or may be buried so deeply within 


the other programs that getting it out is more trouble than it’s 
worth. 


A database management system integrates the data and makes it 
much easier to get useful information from your records, rather 
than just reams of data. Conceptually, a DBMS looks something 


like this: 
PAYROLL 
DATA 


PAYROLL 
PROGRAMS 


DATABASE ae 
MANAGEMENT BE chine 
SYSTEM 


INV. 
PROGRAMS 


DATABASE 


Data is monitored and manipulated by the DBMS, not the individual 
applications programs, All of the applications systems have 
access to all of the data. Ina file handling system, this would 
require a great deal of duplicated data. Aside from the potential 
for entry errors, data integrity is extremely hard to maintain 


when the same data is supposed to be duplicated in different 
files: it never is. 


To generate a new processing system in a file handling system, a 
new program and new files must be set up. Using a DBMS, a new 
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access program is written, but the data does not have to be 
restructured: the DBMS takes care of it. 


If a new kind of data is added to a record (salary history in a 
personnel file, for example), file handling programs have to be 
modified, with a DBMS, additions and changes have no effect on 
the programs that don't need to use the new information: they 
don't see it and don't know that it's there. 


Database management systems come in two flavors: hierarchal and 


relational, These terms refer to how the DBMS keeps track of 
data, 


A hierarchal system tends to get extremely complex and difficult 
to “maintain because the relationships between the data elements 
are maintained with sets, linked lists, and pointers telling the 
system where to go next. Very quickly, you can end up with lists 
of lists of lists and pointers to pointers to pointers. 


A relational database management system like dBASE II is a great 
deal simpler. Data is represented as it is, and the relation 
between data elements can be considered a two-dimensional table 
like this one: 


Cot.) Col .2 Col.3 


Supplier 


Graphic Process | 


Brown Engraving | Litho plates 


Air Feeight Inc. | Shipping 


Each row going across the table is called a record. Each column 
is called a field of the record. Each entry in the table must be 
a single value (no arrays, no sets, etc.) All the entries in a 
column must be of the same type. Each record (row) is unique, 
and the order of records (rows) doesn't matter. 


When we show you more realistic examples later, you'll see that 
records don't get any more complicated, just larger. 
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A brief introduction to database organization 


Once you've got your database set up, you'll want to access your 


data in an orderly, ordered manner. 
With some databases, the order in which you enter the data iQ 


be the order in which you want to get your information out. In 
most cases, however, you'll want it organized differently. 


With dBASE II you can organize data using the SORT command or the 
INDEX command. (Both of these are described in more detail in 
Section II: Organizing your databases.) 


The SORT command moves entire records around to set up your 
database in ascending or descending order on any field that you 
specify (name, ZIP code, etc.). This field is called the key. 


One drawback of sorting is that you may want to access the 
database on one field for one application, on another field for a 
different application. Another drawback is that any new records 
added are not in order, and would require a sort every time you 
entered data if you wanted to maintain the order, 


Finding data is also relatively slow, since the sorted database 
must be searched sequentially. 


INDEXING is a way around these problems, 


Indexing is a method of setting up a file using only the keys 
that you are interested in, rather than the entire databases. A 

key is a database field (or combination of fields) that make up 

the "subject" of the record. In an inventory system, the part 
number might be the subject, and the amount-on-hand, cost, 
location, etc, the descriptive fields. In a personnel database, 
names or employee numbers would probably make the best keys. 


With an indexed database, the keys alone are organized, with 
pointers to the record to which they belong, dBASE If uses a 
structure called B*-trees for indexes. This is similar to a 
binary tree, but uses storage much more efficiently and is a 
great deal faster. A FIND command (described in Section II) 
typically takes 2 seconds with a medium to large database, 


If you need your data organized on several different fields for 
different applications, you can set up several index files (one 
for each of the fields) and use the appropriate index file 
whenever required, You could have index files ordered by 
supplier name, by customer number, by ZIP code or any other key, 
all for a single database. 


New entries to a database are automatically added to the index 


file being used. gy 
Another advantage of indexed databases is the rapid location of 
data that you are interested in. 
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GBASE II Records, Files and Data Types 


GBASE II was designed to run on your micro so its scope stops 
short of infinity, but you'll find that you'll have to work at 
figuring out how to get to its maximums. 


GBASE II limits you to 65,535 records per file, but with the 
memory and even “mass storage" limitations of a micro, this is 
really no limitation at all. 


A dBASE II record can be as large as 32 fields and 1000 
characters long (whichever comes first): 


12 43 48 oe OC... 1000 


ie ees ee ee ee 


You might want to think of this as a 1000 character long strip 
that you can segment any way you want to up to the maximums, or 
shorten if you don't need to use it all. You can have four 
fields that use the full 1000 characters (254 characters per 
field maximum). Or a record one character (and field) long. or 
anything in between. 


In our previous example, each record had five fields and the 
total record length was 58 characters: 


Invoice Job 

Number Supplier Description Amount Number 

1 9 10 28 29 43 44 §1 52 58 
Data Types 


As we said earlier, each field must contain a single type of 
data, and in dBASE II these are: 


Character: All the printable ASCII characters, including the 
integers, symbols and spaces. 


Numeric: Positive and negative numbers as large as 1.8 x 10<63> 
down to numbers as small as 1.0 x 10<-63>. Accuracy is 
to ten digits, or down to the penny for dollar amounts 
as high as $99,999,999.99. 


Logical: These are true/false (yes/no) values that occupy a 
field one character long. dBASE II recognizes T, t, 
Y, and y as TRUE, while F, f£, Nand n are recognized as 
FALSE. 
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Field Names 


Each field has a name so that dBASE II can recognize it when you 
want to find it. Field names can be-up to 10 characters (no 
spaces) long, and must start with a letter, but can include 
digits and an embedded Colon: 


A (valid) 

A123456789 (valid) 

Job:Number (valid: upper and lowercase okay) 
Al23,B456 (illegal comma) 

Reading: (illegal: colon not embedded) 


Tip: 


Use as many characters as it takes to make the name 
meaningful. Job:Nmbr is a lot better than No. and 
infinitely better than J. Using a maximum of nine 
characters will make handling memory variables much 
easier (discussed later). 


Another tip: Once you get into setting up Command files, 


you'll find it useful to use capital letters for words 
that dBASE II understands and upper and lowercase for 
fields, variables and other items that you control, 
You'll appreciate this the first time you go back into 
a command file to make changes. 
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GBASE II File Types 


File names are limited to 8 characters and a 3 character 
extension after a period. You can use the colon in the file 
name, but then you'll only be able to manipulate the files 
through dBASE II: CP/M will store the files and get the names 
right, but won't recognize them if you ask it to perform a 
function like PIP, Ten character long filenames aren't a problem: 
CP/M simply chops them down to eight. If you use upper and lower 
case letters to name your files, CP/M will change them to 
capitals, but they'll] still show up better in your command files. 


A @BASE II file is simply a collection of information of a 
similar type under a single name, something like a giant file 
folder. GBASE II operates with the six different file types 
described below. 


«DBF Database files: This is where all your data is kept and the 
extension is automatically assigned by dBASE II when you 
CREATE anew file. Each .DBF file can store up to 65,535 
records. Do not use a word processor on these files. 


«FRM Report form files: These files are automatically created by 
QBASE II when you go through the REPORT dialog. They 
contain headings, totals, column contents, etc, They can be 
modified using a word processor or text editor, but we 
definitely recommend against this practice: make your 
changes using dBASE II. 


-CMD Command files: These files contain a sequence of dBASE II 
statements to perform functions that you use frequently, and 
can be a complex as a complete payroll system, These are 
created using a text editor or word processor, 


-MDX Index files: These are automatically created by the INDEX 
command. Indexing provides very rapid lecation of data in 
larger databases. 


MEM Memory files: These are automatically created when you SAVE 
the results of computations, constants or variables that you 
will want later. You can SAVE up to 64 items, each up to 
254 characters long, then RESTORE them the next time you 
need them, 


-TXT Text output files: This file is created when you use the 
SET ALTERNATE command to store everything that goes to the 
CRT on your disk, too. This feature can be used as a system 
logging function, and the information can later be edited, 
printed, and/or saved. They are also created when you 
COPY...SDF. 
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GBASE IL OPERATIONS SUMMARY 


Arithmetic operators (generate arithmetic results: p.37) 


( 


(+N o~— 


Relational 


Nn 
M 


parentheses for grouping 


: multiplication 


division 
addition 
subtraction 


Operators (generate logical results: p. 37) 


less than 

greater than 

equal 

not equal 

less than or equal 
greater than or equal 


Logical Operators (generate T/F logical results: p. 38) 


() 
»NOT. 
«AND. 

-OR. 
$ 


oe oe oe 


parentheses for grouping 

Boolean not (unary operator) 

boolean and 

boolean or 

substring logical operator (p. 40) 
(is stringl in string2?) 


String operators (generate string results: p. 41) 


+ ; string concatenation (joining) 
- : string concatenation with blank squash 
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GBASE Ii FUNCTION SUMMARY 


? record number (p. 76) 
* deleted record (p. 76) 
EOF end of file (p.76) 


{(<variable/string>) 
TYPE (<expression>) 
INT (<variable/expression>) 


VAL (<variable/string/substring>) 


convert to uppercase (p. 80) 
data type (p. 80) 
integer function (p. 80) 


string to integer (p.81) 


STR(<expression/variable/number>, <length>, <decimals>) 


LEN (<variable/string>) 


integer to string (p.81l) 


string length (p. 81) 


$(<expression/variable/string>, <start>, <length>) 


substring select (p. 82) 


@(<variablel/stringl>, <variable2/string2>) 


CHR(<number>) 
& 
FILE (<"“filename"/var/exp>) 


TRIM 
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substring search (p. 82) 
number to ASCII (p. 82) 
macro substitution (p. 83) 
file exists? (p. 83) 


trailing blanks (p. 83) 


GBASE II COMMAND SUMMARY 


The following abbreviations are used in this summary: 


<exp> = expression 

<var> = variable 

<str> = string 
<coord> = coordinates 


The symbols <..> bracket items that are to be specified by the 
user. Square brackets {..] enclose optional items, In some 
cases, options are nested (themselves have other options). 


? <exp {,list]> 
Display an expression (or list separated by commas) (p. 25) 


@ <coord> {SAY <exp> [USING ‘picture']] (GET <var> [PICTURE ‘'picture')] 
Format console screen or printer output (p. 88) 


ACCEPT ['prompt'] TO <var> 
Input a character string from the console, no quotes (p. 68) 


APPEND (BLANK) 


APPEND PROM <filename> [SDP] (FOR <exp>} 
. (DELIMITED (WITH delimiter)]) 
Add data to a database (pp. 26, 47, 70) 


CANCEL 
Abort a command file execution 


CHANGE [scope] FIZLD <list> (FOR <exp>] 
Make multiple changes to a database (p. 51) 


CLEAR 
Reset dBASE fille and memory variable environment (p. 76) 


CONTINUE . 
Continue a LOCATE command (p. 55) 


(SDP) 
COPY [scope] TO <filename> [STRUCTURE] [PIELD <list>] (FOR <exp>] 
(DELIMITED (WITH delimiter] } 
Copy data from a database to another file (pp. 43, 47, 49) 


COPY TO <fllename> STRUCTURE EXTENDED 
Creates a new file whose records define the structure of 
the old file. (see also CREATE <newfile> FROM <oldfile>) 


count [scope) {FOR <exp>) [TO <var>} 
Counts records that satisfy some condition (p. 58) 


Oo 
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CREATE ; 
a) Make a new database (p. 14) 


CREATE <newfile> FROM <oldfile> 
Creates <newfile> with structure determined by the data in the 
records of <oldfile>. (see also COPY STRUCTURE EXTENDED) 


DELETE [scope] (FOR <exp>) 
Mark specified records for deletion (p. 28) 


DELETE PILE <filename> 
Erase a file from the system (p. 28) 


DISPLAY [scope) [FOR <exp>] [OFF] 
Show data based upon request (pp. 20, 23) 


DISPLAY [scope] (<field> [{,list]] 
Shows only the selected field(s) 


DISPLAY STRUCTURE 
Show structure of the database in USE (p. 23) 


DISPLAY MEMORY 
Show the contents of the memory variables (p. 35) 


DISPLAY FILES [ON disk drive] 
i) Show a disk directory (p. 23) 
DO <filename> 
Execute a command file (p. 63) 


DO WHILE <exp> 
Perform a group of commands repeatedly (p. 66) 


EDIT 
Alter the data in a database (p. 18) 


EDIT (number) 
Presents a specific record for editing (p. 18) 


EJECT 
Do a form feed on the printer 


ELSE e 
Alternate execution path in an IF command (p. 64) 


ENDDO 
Terminator for DO WHILE command 


ENDIF 
Terminator for an IF command 


* 
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ERASE 
Clear console screen 


FIND <key> 
Locate a record in an indexed database based upon key 
value (no quotes needed for character keys) (p. 54) ae) 


GO or GOTO [RECORD], or [TOP], or [BOTTOM], n 
Position to a given place in a database (p. 24) 


IF <exp> 
Conditional execution command (p. 64) 


INDEX ON <key> TO <filename> 
Create an index file for the database in USE (p. 52) 


INPUT [‘prompt']) TO <var> 
Accept user inputs into memory variables. User prompt 
string is optional (p. 68) 


INSERT [BEFORE] 
(BLANK] 
Add a new record to a database among other records (p. 26) 


JOIN TO <filename> ON <exp> [FPIELDS <list>) 


Create a database composed of matching records from two 
other databases (p. 87) 


List 
Show data records (pp. 20, 21) 


LOCATE [scope} [FOR <exp>] 
Find the record that matches a condition (p. 54) 


LOOP 
Escape mechanism for DO WHILE groups (p. 66) 


NOTE or * 
A command file comment that is not displayed when the 
command file is run 


MODIFY COMMAND <filename> 
Permits modification of a file directly from dBASE II (p. 76) 


MODIFY STRUCTURE 
Alter the structure of a database. Destroys all data in 
the database (p. 42) 


PACK 
Eliminates records marked for deletion (p. 28) 


oO 
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QUIT [TO list of CP/M level commands or .CoM files] 
Terminate dBASE and execute a program chain, Each 
command must be in quote marks, and commands must be 
separated by commas (p. 76) 


READ 
Enter full screen editing of a formatted screen, 
Accepts data into GET commands (p. 70) 


RECALL [scope] [FOR <exp>] 
Unmark records that have been marked for deletion (p. 28) 


RELEASE [<var> [,list]] or [ALL] 
Eliminate unwanted memory variables (p. 36) 


REMARK 
A comment that is shown on the screen when the command 
file is run 


RENAME <oldfile> TO <newfile> 
Give a file a new name (p, 76) 


REPLACE [scope] <field> WITH <exp> [,<fileld> WITH <exp>...] 
Alter data in a database. Make sure that you have a backup, 
because dBASE II will do precisely what you ask it to do, 
even if it's not exactly what you had in mind (p. 50) 


REPORT [scope] [FORM <filename>] [TO PRINT] [FOR <exp>] 
Generate a report (p. 56) 


RESET 
Tell CP/M that a diskette swap may have occurred 


RESTORE FROM <filename> 
Remember SAVEd memory variables, Destroys all existing 
memory variables 


RETURN 
Terminate a command file and return to calling file 


SAVE TO <filename> 
Write memory variables to a file for future use 


SELECT (PRIMARY) or [SECONDARY] 
Switch working areas (p. 75) 


SET parameter [ON], or [OFF] 
Dynamically reconfigure dBASE operation (p. 84) 


SKIP +<exp/number> 
Move forward or backwards in the database (p. 24) 
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SORT ON <key> TO <fllename> [ASCENDING] 


[DESCENDING] 
Generate a database that is sorted on a field (p. 52) 
STORE, <exp> TO <var> 
Place a value into a memory variable (p.33) i) 


SUM [scope] <field [,list]> [To <var [,list]> [FOR <exp>] 
Total fields in a database (p. 58) 


TOTAL TO <filename> ON <key> [FIELDS <field L,list]> 
Generate a database with sub-totals for records (p. 59) 


UPDATE FROM <filename> ON <key> [ADD <field [,list]>] 
(REPLACE <field [,list]>]} 
Modify a database with data from another database (p. 86) 


USE <filename> [INDEX <filename>] 
Open a database file for future operations (p. 20) 


USE 
Close a previously opened database file 


WAIT [TO <var>] 
Pause in program operation [for input] (p. 68) 
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GBASE II commands grouped functionally 


FILE STRUCTURE: 
CREATE defines an entirely new file structure 


CREATE <newfile> FROM <oldfile> creates a new file whose 
Structure is described in the records of the old file. 


USE <oldfile> 

COPY TO <newfile> STRUCTURE 
These two commands combined create a new file with the same 
structure as an old file 


USE <oldfile> 

COPY TO <newfile> STRUCTURE EXTENDED 
Create a new file that contains the structure of the old 
file as data 


CREATE <newfile> FROM <oldfile> 
Creates a new file whose structure is defined by the records 
in the old file. 


DISPLAY STRUCTURE 
LIST STRUCTURE 
Both show the structure of the file in USE 


MODIFY STRUCTURE changes file names, sizes, and overall 
structure, but destroys data in the database 


USE <oldfile> 

COPY TO <newfile> 

USE <newfile> 

MODIFY STRUCTURE 
APPEND FROM <oldfile> 
COPY TO <oldfile> 

USE <oldfile> 

DELETE FILE <newflle> 


To rename fields with data in the database: is 


USE <oldfile> 

Copy TO <newfile> SDP 

MODIFY STRUCTURE 

APPEND FROM <newfile>.TXT SDF 
DELETE FILE <newfile> 
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FILE OPERATIONS: 3 
USE <filename> opens a file 

USE <newfile> closes the old file 

USE closes all files 


RENAME <oldname> TO <newname> 
Must NOT rename an open file 


COPY TO <filename> creates a backup copy 

CLEAR closes all files and erase all memory variables 

SELECT (PRIMARY) [SECONDARY] 
Allows two files to be independently open at the same time. 
Data can be transferred with P. and S. prefixes 


DISPLAY FILES [ON <d>] lists databases on logged-in drive (or 
drive specified), can use LIST instead 


DISPLAY FILES LIKE <wildcard> [ON <d>] shows other types of files 
on drives 


QUIT closes both active areas, all files, terminates dBASE IL 
operation 


ORGANIZING DATABASES: 
SORT ON <key> TO <newfile> 


INDEX ON <key> TO <newfile> 
Can use multiple keys for both commands 


COMBINING DATABASES 
COPY TO <newfile> creates a duplicate of the file in USE 
APPEND FROM <otherfile> adds records to the file in USE 


UPDATE PROM <otherfile> ON <key> adds to totals or replaces data 
in the file in USE. Both files must be sorted on the <key>. 


JOIN creates a third file from two other files 
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EDITING, UPDATING, CHANGING DATA: 

DISPLAY, LIST, BROWSE let you examine the records 
DELETE marked record so it is not used 

RECALL unmarked record 

PACK erases deleted records 

EDIT lets you make changes to specific records 


REPLACE <field wITd data> global replacement of data in fields, 
can be conditional as with most dBASE II commands 


CHANGE..FIELD edit based on field, rather than record 


@ <coord> GET <var> 
READ displays the variable, lets you change it 


INSERT [BEFORE] [BLANK] inserts a record in a database 


UPDATE FROM <otherfile> ON <key> adds to totals or replaces data 
in file in USE from another file 


MODIFY COMMAND <filename> allows changes to your command files 
without having to go through your text editor 


USING VARIABLES: 


Allowed up to 64 memory variables plus any number of field 
names. 


LIST MEMORY, DISPLAY MEMORY both show the variables, their data 
types and their contents 


& returns the contents of a character memory variable (i. e., 
provides a literal character string) 


STORE <value> TO <var> sets up or changes variables 
RELEASE <var> cancels the named variable 


SAVE MEMORY TO <filename> stores memory variables to the named 
file (with .MEM extension) 


RESTORE FROM <filename> reads memory variables back into memory 
(destroys any other existing memory variables) 
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INTERACTIVE INPUT: 

WAIT stops screen scrolling, continues with any key 

WAIT TO <var> accepts character to memory variable 

INPUT [*prompt']) TO <var> accepts any data type to a “memory a) 
variable (creates it if it did not exist), character input 


must be in quotes 


ACCEPT ['prompt'] TO <var> same as INPUT, but no quotes around 
character input 


@ <coord> SAY ['prompt'}] GET <var> [PICTURE] 


READ 
displays memory variable, replaces it with new input 


SEARCHING: 


SKIP [+#<exp>] moves forward or backward a specific number of 
records 


GO[TO] <number>, GO TOP, GO BOTTOM 
move’ you to a specific record, the first record, or the last 
record in the database 
FIND <str> works with indexed file in USE, very fast oO 
LOCATE FOR <exp> 


CONTINUE 
Searches entire database 


OUTPUT: 
?, DISPLAY, LIST show expressions, records, variables, structures 


REPORT [FORM <formname>] creates a custom format for for output, 
then presents data in that form when called 


@ <coord> SAY <var/exp/str> formats output to screen or to 


printer ([(USING <format>] can be added to provide PICTURE 
format for the printer) 
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PROGRAMMING : 


(Programs stored in COMMAND FILES with .CMD extension.) 


DO <filename> starts the program 
IP <conditions> Makes choices, single or 
perform commands multiple (when nested) 
ELSE 
perform other commands 
ENDIF 
DO WHILE <conditions> <Conditions> must be 
perform commands changed by something 
ENDDO in the loop eventually 
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Section VI 


A working accounting system 


The following pages are command files written by a customer using 
almost all of the dBASE II commands, following the instructions 
in this manual. 


The system may be fairly elementary from an accountant's 
viewpoint, but includes some programming techniques that you 
might find useful. 


Besides illustrating individual commands, it shows you how to set 
up menus, how to find data and merge files, different ways of 
setting up the inputs to the system, and a number of interesting 
solutions to some of the problems involved in keeping a cash 
journal, doing payrolls, and managing databases so that 
information is available and data integrity is not compromised. 


The Programs are self-documented, with comments sprinkled 
liberally throughout. 
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STRUCTURE FOR FILE: B:COSTBASE.DBF 


FLD NAME TYPE WIDTH DEC 
001 CHECK:DATE C 007 
002 CHECK:NMBR C005 
003 CLIENT c 003 
004 JOB: NMBR N 003 
005 AMOUNT N 009-002 
006 Pe c 001 
007 NAME c 020 
008 S c 001 
009 DESCRIP c 020 
010 i c 001 
01 BILL:DATE C 007 
o12 BILL:NMBR C 007 
013 HOURS N 006 = 002 
014 EMP :NMBR N 003 
s® TOTAL * 00094 


(Indexed on NAME to B: $SUPP.NDX) 


STRUCTURE FOR FILE: B:POSTFILE.DBPF 


FLD NAME TYPE WIDTH DEC 
001 CHECK:DATE C 007 
002 CHECK:NMBR = C 005 
003 CLIENT c 003 
004 JOB: NMBR N 003 
005 - c 001 
006 NAME c 020 
007 - c 001 
008 DESCRIP c 020 
009 AMOUNT N 009 002 
010 - c 003 
011 BILL: DATE c 007 
012 BILL: NMBR c 007 
013 HOURS N 006 002 
014 EMP : NMBR N 003 
a8 TOTAL ## 00096 
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STRUCTURE FOR FILE: B:BILLISGS.DBF 


FLD NAME TYPE WIDTH DEC 
001 INV: NMBR Cc 006 
002 CLIENT c 003 
003 JOB: NMBR N 003 
004 - c oot 
005 INV: DATE c 006 
006 TAXABLE N 009 002 
007 SALES: TAX N 009 002 
008 TAXFREE N 009 002 
009 - c 001 
4010 PO: NMBR c 008 
o1t DESCRIP c 027 
O12 MORE L oot 
®* TOTAL #8 00084 


(Indexed on INV:NHBR to B:BILLINGS.NDX) 


STRUCTURE FOR FILE: B:INVOICES.DBF 


FLD NAME TYPE WIDTH DEC 
001 INV: NMBR c 006 
002 CLIENT c 004 
003 INV: DATE c 007 
0048 TAXABLE N 009 002 
005 SALES: TAX N 009 002 
006 TAXFREE N 009 002 
007 - c 001 
008 AMOUNT N 009 002 
009 AMT: RCD N 009 002 
010 - c 001 
011 DATE: RCD c 007 
"® TOTAL #* 00072 


(Indexed on INV:NMBR to B: IMNVOICES.NDX) 


STRUCTURE FOR FILE: 8:DEPOSITS.DBF 


FLD NAME TYPE WIDTH DEC 
001 DEP: DATE c 007 
002 PAYER c 020 
003 - c 001 
004 PAY: NMBR c 007 
005 DEPOSIT N 009 002 
006 - c 001 
007 INV: NMBR Cc 006 
008 COMMENTS c 021 


*® TOTAL #48 00073 
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STRUCTURE FOR FILE: 5B: CHECKFIL.DBF 


FLD NAME TYPE WIDTH DEC 
001 CHECK:DATE C 007 
002 CHECK:NMBR CC 005 
003 AMOUNT N 009 002 
004 - c 001 
005 BILL: NMBR c 007 
006 NAME c 020 
007 EMP: NMBR N 003 
008 - c 001 
009 CLIENT Cc 003 
010 JOB: NMBR N 003 
ov DESCRIP c 020 
012 BALANCE R 009 002 
®3 TOTAL #8 00089 


STRUCTURE FOR FILE: B:1#SERTS.DBF 


FLD NAME TYPE WIDTH DEC 
001 10:NMBR c 005 
002 MAGAZINE Cc 014 
003 - Cc 001 
004 ISSUE c 006 
005 - c 001 
006 CLIENT c 003 
007 JOB: NMBR N 003 
008 - c 001 
009 AD c 015 
010 SPACE c 013 
o11 GROSS:COST W 009 002 
012 NET: COST N 009 002 
013 - Cc 001 
o14 TIMES c 003 
015 10: DATE c 006 
=#* TOTAL ## 00091 


(Indexed on JO:KMBR to B: IKSERTS.NDX) 


STRUCTURE FOR FILE: 


FLD NAME 
001 CHECK: DATE 
002 - 

003 MARKER 
0O4 PAYROLL 
005 FICA 
006 FICASAL 
007 FIT 

008 SDI 

009 SDISAL 
010 SIT 

011 UISAL 
#8 TOTAL ## 


STRUCTURE FOR FILE: 


FLD NAME 
001 EMP:NMBR 
002 NAME 

003 ADDRESS 
004 CITY: STATE 
005 ZIP 

006 PH: NMBR 
007 SS:NMBR 
008 M:S:H 
009 DEDUCTS 
010 PAY:RATE 
011 FICA 

012 YTDFICA 
013 FIT 

O14 YTDFIT 
015 SDI 

016 YTDSDI 
017 SIT 


018 YTDSIT 
019 NET: PAY 
020 QTDSAL 


021 YTDSAL 

022 PAID 

023 START: DATE 
024 RATIO 

© TOTAL ## 


TYPE WIDTH 
004 
001 
001 
009 
008 
009 
009 
007 
009 
009 
009 
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TYPE WIDTH 
003 
020 
024 
020 
005 
013 
009 
001 
002 
007 
008 
008 
009 
009 
007 
007 
009 
009 
009 
009 
009 
001 
006 
005 

00209 


BZarBeBBABABZSZBZBZAZAIARAAGAIVAEZ 


B:HOLD81.DBF 


DEC 


002 
002 
002 
002 
002 
002 
002 
002 


B: PERSONKE .DBPF 


DEC 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
oo2 
002 


003 
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STRUCTURE FOR FILE: B:SUPPLIER.DBF 


FLD NAME TYPE WIDTH DEC 
001 SUPPLIER c 030 
002 ADDRESS c 024 
003 CITY c 016 
004 STATE c 002 
005 ZIP c 005 
006 PHONE:NMBR CC 008 
007 AREA: CODE c 003 
®= TOTAL # 00089 


(Indexed on SUPPLIER to B:SUPPLIBR.NDX) 
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The agency accounting system uses three standard report 
forms. The first one is for media and is filled out 
completely. The remaining two are skeletons, showing only 
the answers to the questions asked by dBASE II. 


ENTER REPORT FORM NAME: Media 

ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH 
M=50 <enter> 

PAGE HEADING? (Y/H) n 

DOUBLE SPACE REPORT? (Y/N) n 

ARE TOTALS REQUIRED? (Y/N) y 

SUBTOTALS IN REPORT? (Y/N) n 


COL WIDTH , CONTENTS 
00% 6,10:NMBR 

ENTER HEADING: IO # 

002 15, MAGAZINE 
ENTER HEADING: MAGAZINE 
003 T, ISSUE 

ENTER HEADING: ISSUE 
004 6, CLIENT+STR(JOB:NMBR , 3) 
ENTER HEADING: JOB # 
005 15,AD 

ENTER HEADING: AD 

006 9,GROSS: COST 


ENTER HEADING: $GROSS 

ARE TOTALS REQUIRED? (Y/N) Y 

007 <enter> 

The above dialog generate this report form: 


PAGE NO. 00001 


Io # MAGAZINE ISSUE JOB # AD $GROSS 
2787 = EDN JAN 7  SPI678 FLAT MAN 3225.00 
2788 MICROWAVES JAN POM772 FISHERMAN GUNNS 2500.00 
2789 MICROWAVES MAR POM639 COP: GUNNS 2500.00 
2790 ELECTRONICS JAN PSS754 NICE LITTLE BK 5900.00 
2791 = BYTE FEB SFT789 BILGE PUMP 2932.00 


sesletc.)oee 


The other two report forms are: 


JOBCOSTS.FRM 
n 
n 
y 


n 
9, BILL: DATE 
DATE 
22, NAME 
SUPPLIER. seseeceeeeees 
17, DESCRIP 
DESCRIPTION....-- 
12, AMOUNT 
AMOUNT 


8, INV: DATE 

DATE 

8, INV:NMBR 

INVOICE 

17, DESCRIP 

DESCRIPTION 

10, TAXABLE 

TAXABLE 

Y 

10, SALES: TAX 

SALES TAX 

Y 

10, TAXFREE 
TAX-FREE 

Y 
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SYSTEM CONSTANTS 


System constants are kept in a file called B:Constant.MEM. 
These are called out, used and updated where 
appropriate from within a number of programs within this 
Constants are kept in a single file so 
that when any of them change (new tax rates, new year, 
etc.), they need only be changed in one location to update 


accounting system. 


the entire system. 


NEITCHECK 
WB ALANCE 


THISYEAR 
MINTEAR 


WEXT:IO 
WEXT: IV 


FICACUT 
FICAEND 
MAXFICA 
SDICUT 
SDIEND 
MaXSDI 
UIEND 
COMPLETED 
PREVDATE 
MAXEMPL 


(c) 
(Nw) 


(N) 
(N) 


(c) 
(c) 


(N) 
(x) 
(N) 
(N) 
(Nn) 
(nN) 
(N) 
(c) 
(c) 
(Nn) 


3565 
23921.18 


81 
79 


2885 
10623 


0.0665 
29700.00 
1975.05 

0.006 
14900.00 
89.40 

6000 


810814 
14 


Keep checkbook current in PAYBILLS, PAYROLL 
and DEPOSITS command files. 


Used by GETDATE, DATECHECK and PAYROLL files. 


Next insertion order number (IOPOST.CMD). 
Next invoice number (INVOICES.CMD). 
Entire grouping is used in the PAYROLL file. 


Easy to update every year because the values 
are not sprinkled throughout the programs. 


Highest employee number. Also used in 
POSTTIME and TIMECALC programs. 


Oo 
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SSeS ESE E TY ACCOUNTS COMMAND FILE HEMREE EERE 
* THIS IS THE CONTROL MODULE FOR ALL THE PROCEDURES USED IN THE ACCOUNTING 
* FUNCTIONS. (MENU DRIVEN). The operator is given a choice of major 
* functions. The menu selection here calls up menus of sub-functions 


* to as many levels as necessary. A package cf utility functions is 


* also provided as part of the overall system for file maintenance, etc. 
PERISEPSSTRAEHAEHETHA ET MOT KEG KARA TAPE ERREHAREERR ERE 


SELECT PRIMARY 
CLEAR 

SET TALK OFF 

SET EJECT OFF 
SET MARGIN TO 38 
SET RAW ON 


eeanene STRGSSTHTTPGERSRATTESRGERATEHERASSAH TEAR AKRRERR ERE EEA % 
® This group of commands is hardware-dependent, may be eliminated 
* down to the next row of asterisks. 
SET PRINT ON 
® Sets (8-1)=7 lines/inch and 89 lines page, Diablo 1650/sheet feeder 
22 CHR(27)+CHR(30)+CHR(8) 
22 CHR(27)+CHR(12)+CHR(89) 
SET PRINT OFF 


* End printer setup commands. 
SSEPFFESAAETERT TST GS STR LG AHH HAREEHARRRA RARER EHARA EGR ER ERE ES 


STORE T TC Accounting 


DO WHILE Accounting 
te) ERASE 
5 


"I> ENTER BILLS & TIME SHEETS 6> REPORTS & PRINTOUTS! 

i) Job cost & billing summaries! 
"2> PAY BILLS & SALARIES Find & Edit bills by name' 

s Review/print databases' 

'3> DEPOSITS & CHECKBOOK Quarterly Sales Tax’ 


MEDIA INSERTION ORDERS’ 
'S> CLIENT BILLINGS & INVOICES' 


' Pick a number (Q to QUIT)' 
AIT TO Action 


Pe Oe Re ON nn ee 
= 
Vv 


IF t(Action) = 'Q! 
* This sequence homes the cursor and erases the screen on the IBM 3101 
STORE chr(27) + chr(76) + chr(27) + chr(89) + ehr(0) TO q 
QUIT TO '&q' 
ELSE 
IF Action = '1' 
DO CostMenu 
ELSE 
IF Action = '2' 


DO PayMenu 
ELSE 
oO IF Action = '3' 
DO DepMenu 


ELSE 
IF Action = '4" 
DO 10Menu 
ELSE 
IF Action = '5' 
DO InvMenu 
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ELSE 


IF Action = '6' 
DO ReportMe 
ELSE 


If Action = 'T! 
ERASE 
@ 5,10 SAY '' HELP file not ready yet.' 
?.' <Return> to continue.’ 
WAIT 
ENDIF 7 
ENDIF 6 
ENDIF 5 
ENDIF 4 
ENDIF 3 
ENDIF 2 
ENDIF 1 
ENDIF Q 
STORE T TO Accounting 
ENDDO Accounting 
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BOREEERRE COSTMENU COMMAND FILE ##8e0eunOR 

* This is one level down from the Accounts.Cmd contro) module. 

® Selections are refinements that relate to costs for client-related 

# jobs or agency overhead. 

+4 The main database is called CostBase.Dbf and is kept on disk B. 

* Costs are not entered directly into the CostBase, however, because this leads 
® to data contamination and all sorts of problems fixing the errors. Instead, 

* supplier bills and agency time sheets are posted into an interim file called 

* PostFile.Dbf. In here, they can be reviewed and edited as necessary. 

: When all the cost entries are confirmed as being correct, they are 

2 


transferred to the CostBase by using the update procedure (selection 5). 
SEEPS TELE ESET E REDE ITE SEEPS TITEL T STILT ISIS rirererivisetitert iti ti titty 


STORE T TO Posting 
DO WHILE Posting 


ERASE 
@ 2,20 SAY? 1> UNTAXED ITEMS USED BY AGENCY" 
@ 4,20 SAY ' 2> ENTER SUPPLIER BILLS! 
@ 6,20 SAY! 3> ENTER EMPLOYEE TIME SHEETS' 
@ 8,20 SAY ' 4> EDIT the POSTFILE' 
@ 10,20 SAY * 5> REVIEW/PRINT the POSTFILE' 
@ 12,20 SAY ' 6> UPDATE THE COSTBASE' 
@ 14,20 SAY 7> WIPE OUT DELETED RECORDS IN POSTFILE' 
@ 16,20 SAY ' <RETURN>* 
WAIT TO Action 
ERASE 
IF Action = ‘1! 
ERASE 


4,10 SAY 'This program accepts bills for items that the agency bought' 
C without paying sales tax, but will use internally, rather’ 

ui than for a job that will be billed to a client. This would' 
© include equipment bought out of state and locally bought" 

& materials NOT used in client jobs and NOT taxed.' 


Oo 


WVIIVIIY 


» DO NOT ENTER ANY OTHER BILLS!' 


'Do you want to continue (Y or N)?! 
WAIT TO GoAhead 
IF !(GoAhead) = 'Y' 
DO UseTax 
ELSE 
RELEASE All 


IF Action = '2' 

ERASE 

@ 4,10 SAY * CHECK ALL THE BILLS BEFORE ENTERING THEM.' 
' If any of the bills are for items used by the agency' 
' but sales tax was not paid, select OPTION 1 from the' 
b entry menu. <Return> to continue.' 


WAIT = 
DO CostBills 

ELSE 
IF Action = '3! 


DO CostTime 
ELSE 
IF Action = '4t 


STORE "Y" TO Changing 
DO WHILE !(Changing)='Y’ 
USE B:PostFile 
IF EOF 
? ‘There are no entries in the POSTING file.' 
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? '<Return> to continue.' 
WAIT 


STORE "N" TO Changing 
ELSE 
GO BOTTOM 


ERASE 
@ 3,10 SAY "EDITING BILLS ENTERED.‘ 
@ 5,10 SAY 'There are '+STR(#,5>+" file entries.' 
@ 6,10 SAY 'Which entry do you want to EDIT?’ 
ACCEPT TO Number 
IF VAL(Number) <= 0 .OR. VAL(Number) > # 

? 


> 
2? ‘Out of range: do you want to.continue (Y or N)?' 
WAIT TO Changing 
ELSE 
Edit &Nusber 
REPLACE Name WITH !(Name), Deserip WITH !(Descrip),; 
Client WITH !(Client), Bill:Nmbr WITH 1(Bil1:Nmbr) 
? 
? 'Do you want to edit any other entries (Y or N)?" 
WAIT TO Changing 
ENDIF 
ENDIF 
ENDDO Changing 
RELEASE All 
ELSE 
IF Action ='5' 
STORE 'Y' TO Reviewing 
DO WHILE !(Reviewing)='Y* 
USE B:Postfile 
COUNT FOR .NOT. * TO Any 
IF Any = 0 
? 'No unposted entries in the POSTING file.' 
? '<Return> to continue.' 
WAIT 
STORE "N" TO Reviewing 
ELSE 
ERASE 
2: 'There are '-STR(Any,5)+' unposted entries.' 
? ‘Do you want to print them, too (Y or N)?' 
WALT TO Output 


IF !(Output)='"¥' 


SET PRINT ON 

ENDIF 
t JOB NAME DESCRIP"; 
+'TION AMOUNT DATE NUMBER’ 


2 

STORE 'OFF' TO Condition 
STORE '0' TO Number 

DO Printout 


? "That's all the unposted entries." 
? ‘Want to see them again (Y or N)?' 
2? "(To see deleted records, choose "Edit".)! 


WAIT TO Reviewing 
ENDIF 
ENDDO Reviewing 


RELEASE all 
ELSE 
IF Action = "6! 
DO CostUpdate 
ELSE 
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IF Action = '7' 
? ‘This destroys all records in the PostFile.' 
? "Do you want to do this (Y or N)?! 
WAIT TO WipeOut 
IF I(WipeOut) = 'y* 

USE B:PostFile 
PACK 

ENDIF 
RELEASE ALL 

ELSE 
RELEASE All 
RETURN 

ENDIF 7 

ENDIF 6 
ENDIF 5 
ENDIF 4 
ENDIF 3 
ENDIF 2 
ENDIF 1 
STORE T TO Posting 
ENDDO Posting 


aBASE II...130 


This Mile accepts inputs for supplier bills when the agency has bought 


an item without paying a use tax on it. 
The item or items are added to the Invoices file (not Billings), 


then are used by the SalesTax program so that the Quarterly Sales Tax 
report can be prepared by the computer. 


SeeeeeeH8es USETAX COMMAND FILE "#8e8e00ue88 


can decide to quit on an incomplete entry, which is marked for deletion. 

When the data is APPENDed to the PostFile, these entries are eliminated (the 
APPEND command does not transfer records marked for deletion). An entry must 
include at least the name of a supplier and the amount of the bill. If these 


are not both supplied, the entry is flagged for correction or deletion. 


a 
e 
e 
a 
a 
a 
® A temporary file called GetBills is used for data entry because the operator 
s 
LJ 
a 
a 
s 
SSSTSHFFAHSEGHHSDHSRSSTETCTAHEGHCAHHEDHCHTEGHERCHAAeARaeERseeeeRAosee 


ERASE 
@ 5,20 SAY "AGENCY USE TAX PROCEDURE' 
? 


USE B:PostFile 
COPY STRUCTURE TO GetBilis 


USE GetBills 

STORE 'Y' TO Bills 

DO WHILE (Bills) <> 'F* 
APPEND BLANK 
STORE STR(#,5) to Number 
REPLACE Client WITH 'OFC' 


STORE T TO Entering 
DO WHILE Entering oO 


SAY "ENTER ONLY UNTAXED ITEMS NOT USED FOR CLIENT JOBS.' 


0 
@ 3,0 SAY ' RECORD NUMBER:' + Number 
@ 4,0 Say ' CLIENT:' + Client + ':!' 
@ 5,0 SAY ' JOB NUMBER' GET Job:Nmbr 
@ 6,0 SAY '' AMOUNT! GET Amount 
@ 7,0 SAY ' BILL NUMBER’ GET Bill:Nmbr 
@ 8,0 SAY ' BILL DATE' GET Bill:Date 
@ 9,0 SAY '' SUPPLIER NAME' GET Name 


REPLACE Name WITH !(Name),Descrip WITH ‘USE TAX ENTRY’; 
Bill:Nmbr WITH !(Bi11:Nmbr) 

e 7,17 SAY Bill:Nmbr 

@ 9,17 SAY Name 

@ 10,17 SAY Descrip 


STORE ' ' TO Getting 
IF Job:Nmbr <= 0 .OR. Job:Nmbr > 99 


@ 12,0 
es The JOB NUMBER entry is wrong.' 
7° Agency jobs are from 1 through 99.' 
28 F if FINISHED,' 
ACCEPT ' <Return> to change.' TO Getting 
ELSE 
IF Amount = 0 .OR. Name <= ' a 
? 
? 
ie AMOUNT or NAME missing.' 
ois F if FINISHED,' 
ACCEPT ' <Return> to change.' TO Getting 
ELSE 
‘@ 12,5 SAY '' C to CHANGE,' 
@ 13,5 SAY ' F if FINISHED,’ 


ACCEPT ' <Return> to continue. TO Bills 


dBASE II...131 
ee) IF !(Bills)='C* 
STORE T TO Entering 


ELSE 
STORE F TO Entering 
ENDIF 
ENDIF amount or name 
ENDIF client or job number 


IF !(Getting)= 'F* 
DELETE RECORD &Humber 
STORE F TO Entering 
STORE 'F' TO Bills 


ENDIF 
ENDDO Entering 
ENDDO Bills 
COUNT FOR .NOT. # TO Any 
IF Any = 0 
2? 
Te No valid entries to add to the files.' 
Kan <Return> to the menu.! 
WAIT 
ELSE 


RESTORE FROM B: Constant 
STORE 'Bill:Date' TO Date 


a) DO DateTest 
® Checks names against a list of suppliers to catch spelling and 
* abbreviation inconsistencies. 
DO NameTest 


ERASE 

@ 3,25 SAY ' ##*® DO NOT INTERRUPT ##*' 
@ 5,25 SAY ' UPDATING THE POSTING FILE! 
USE B:PostFile 

APPEND FROM GetBills 


The following loop transfers the bills just entered into the Invoices 
file. The amount of the bill is entered in the "Taxable" column. The 
job number is entered into the Invoice Number column. Since invoice 
have 5 digits, while job numbers are under 1000, we use this to sepa- 
rate the two types of entries later in the SalesTax.CMD file. 

PRIMARY and SECONDARY work areas are used to step through the GetBills 
® file one entry at a time. 

USE GetBills 

SELECT SECONDARY 

USE B:Invoices 

SELECT PRIMARY 

DO WHILE .NOT. EOF 


IF ® 
SKIP 
ELSE 
SELECT SECONDARY 
APPEND BLANK 
REPLACE Inv:Nmbr WITH STR(Job:Nmbr,3), Inv:Date WITH Bill:Date,; 


Taxable WITH P.Amount, Date:Rcd WITH "USE TAX' 
SELECT PRIMARY 
SKIP 
ENDIF 
ENDDO 


ENDIF 
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USE : 
DELETE FILE GetBills 
RELEASE All 


RETURN 


Oo 


a 
' 
* 
+ 
* 
? 
* 
” 


E 
@ 
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HERNEHEERE® = COSTBILLS COMMAND FILE #808 e20ES8e 
This file accepts inputs for supplier bills. 
A temporary file called GetBills is used for data entry because the operator 
can decide to quit on an incomplete entry, which is marked for deletion. 
When the data is APPENDed to the PostFile, these entries are eliminated (the 
APPEND command does not transfer records marked for deletion). An entry must 
include at least the name of a supplier and the amount of the bill. If these 


are not both supplied, the entry is flagged for correction or deletion. 
SRHLAHASLETA VSS THKHAHARHSHARETHERRRRHFERETAARH SERPS RTT EER ERR ECO 


RASE. 
5,20 SAY 'SUPPLIER BILLS’ 


USE B:PostFile 
COPY STRUCTURE TO GetBills 


U 
s 


SE GetBills 
TORE '¥' TO Bills 


DO WHILE !(Bills) <> 'F! 


APPEND BLANK 
STORE STR(#,5) to Number 


STORE T TO Entering 
DO WHILE Entering 


ERASE 

@ 1,0 SAY ' RECORD NUMBER: '-Number 

@ 3,0 SAY '' CLIENT' GET Client 

@ 4,0 say ' JOB NUMBER' GET Job:Nmbr 

@ 5,0 SAY ' AMOUNT! GET Amount 

@ 6,0 SAY '' BILL NUMBER' GET Bill:Nmbr 

@ 7,0 SAY ' BILL DATE' GET Bill:Date 

é@ 8,0 say '' SUPPLIER NAME' GET Name 

@ 9,0 SAY ' DESCRIPTION' GET Descrip 

READ 

REPLACE Client WITH !(Client),Name WITH !(Name) ,Descrip; 
WITH !(Descrip), Bill:Nmbr WITH !(Bill:Nmbr) 

@ 3,17 SAY Client 


@ 8,17 SAY Name 
@ 9,17 SAY Descrip 


STORE ' ' TO Getting 
IF $(Client,1,1) = ' ' .OR. $(Client,2,1) =" " .OR. $(Client,3,1) = ' ‘3 
«OR. Job:Nmbr <= 0 
@ 12,0 
at CLIENT or JOB NUMBER wrong.' 
2. F if PINISHED,' 
ACCEPT ' <Return> to change.' TO Getting 
ELSE 
IF Amount = 0 .OR. Name <= ' = 


: AMOUNT or NAME missing.' 


2! F if FINISHED, ' 

ACCEPT ' <Return> to change.’ TO Getting 
ELSE 

@ 12,5 SAY '' C to CHANGE," 

@ 13,5 SAY * F if FINISHED,’ 

ACCEPT ' <Return> to continue.' TO Bills 


IF !(Bills)='C* 

STORE T TO Entering 
ELSE 

STORE F TO Entering 
ENDIF 


Dd Od 
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ENDIF amount or name 
ENDIF client or job number 
IF !(Getting)= 'F! 
DELETE RECORD &Number 
STORE F TO Entering 
STORE 'F' TO Bills 
ENDIF 
ENDDO Entering 
ENDDO Bills 


COUNT FOR .NOT. ® TO Any 
IF any = 0 
2? 'No entries to add to the Cost Base.' 
? '<Return> to the menu.’ 
USE 
WAIT 
ELSE 


RESTORE FROM B: Constant 
STORE 'Bill:Date' TO Date 
DO DateTest 


® Checks names against a list of suppliers to catch spelling and 
® abbreviation inconsistencies. 
DO NameTest 


ERASE 
@ 3,25 SAY * ##* DO NOT INTERRUPT ®#*' 
@ 5,25 SAY ' UPDATING THE POSTING FILE’ 


USE B:PostFile 
APPEND FROM GetBills 
ENDIF 


USE 

DELETE FILE GetBills 
RELEASE All 

RETURN 


dBASE IT...135 


SEEGER TOE COSTTIME COMMAND FILE FESTRTEGES 
* Accepts time sheet entries for employees using a temporary 
* fille called GetTime. For data entry. 
. GetTime is used because the operator can decide to quit on an incomplete 
® entry. In that case, the entry is marked for deletion, and when the data is 
"© APPENDed to the PostFile, these entries are eliminated (the APPEND command 
® does not transfer records marked for deletion). 
* After all entries are made, entries are checked for the 
#* correct range of employee numbers and to see that hours have 
# been entered. Using GetTime, we can check the entries without 
® having to go through the entire PostFile. 
« After verifying “hat the dates are in the right format and 
® checking the names against our Suppliers file, the billing amounts 
® are computed. 
s The records are then transferred to the CostFile and the 
* 
a 


temporary file GetTime is deleted. 
SELTSLHEGSATLSISAHHGABTHROTRHCHCOTTASSRASHERAESEAASS 


@ 0,25 SAY * TIME SHEETS ' 


RESTORE FROM B: Constant 
USE B:PostFile 
COPY STRUCTURE TO GetTime 


USE GetTime 

STORE 'Y' TO Time 

DO WHILE !(Time) <>'Ft 
APPEND BLANK 
STORE STR(#,5) TO Number 


STORE T TO Entering 
DO WHILE Entering 


ERASE 

STORE F TO Entering 

@ 1,0 SAY ' RECORD NUMBER: '-Number 

@ 3,0 SAY ' DATE WORKED' GET Bill:Date 
@ 4,0 SAY * CLIENT' GET Client 

@ 5,0 SAY ' JOB NUMBER* GET Job:Nmbr 
@ 6,0 SAY ' HOURS WORKED GET Hours 

@ 7,0 SAY ' EMPLOYEE NUMBER' GET Emp:Nmbr 
@ 8,0 SAY * EMPLOYEE NAME’ GET Name 
READ 


REPLACE Check:Nmbr WITH '----', Check:Date WITH Bill:Date,; 
Client WITH !(Client), Name WITH ! (Name) 

@ 4,17 SAY Client 

@ 8,17 SAY Name 


* The following sequence of IF statments flags all entry errors, then 
* gives the operator the choice of fixing them or ending the procedure. 


? 

IF $(Client,1,1) =" "OR. $(Client,2,1) =" ' .OR. $(Client,3,1) =' ' 
me CLIENT must have three letters.! 
STORE T TO Entering 

ENDIF 


IF Job:Nmbr < 100 
2° JOB # is not for a client job.' 
Tek Is this right (Y or N)?! 
WAIT TO Ask 
IF !(Ask) <> 'y? 
STORE T TO Entering . 
ENDIF 


ENDIF 

IF -NOT. (Hours > 0) 
2 HOURS must be entered. ' 
STORE T TO Entering 

ENDIF 

IF .NOT.(Emp:Nmbr>O .AND. Emp:Nmbr<=MaxEmpl ) 
oo EMPLOYEE # out of range. f 
STORE T TO Entering 

ENDIF 

IF $(Name,?1,1) = ' * 
2 NAME must not start with a blank.' 
STORE T TO Entering 

ENDIF 


IF Entering 
2 


2 
cas F if FINISHED,‘ 
ACCEPT ' <Return> to change’ TO Time 


* If the operator decides to quit on an incomplete entry, it is 
# marked for deletion so that it is not transferred to the PostFile. 


IF !(Time) = ‘Ft 
DELETE RECORD &Number 
STORE F TO Entering 


ENDIF 
ELSE 
2 
sake C to CHANGE,' 
iid F if FINISHED," 


ACCEPT * Return> to continue’ TO Time 
IF !(Time) = 'C’ 
STORE T TO Entering 
ENDIF 
ENDIF 


ENDDO Entering 
ENDDO Time 


COUNT FOR .NOT. ® TO Any 
IF Any = 0 
ERASE 


@ 3,0 SAY ' 


? 


' <Return> to the menu. ' 


USE 
WAIT 


ELSE 


# The test for the date needs the name of the date field to to be tested. 


STORE 'Bill:Date' TO Date 
DO DateTest 


® Checks names against a list of suppliers to catch spelling and 


* abbreviation inconsistencies. 
DO NameTest 


# Verifies match between employee name and number, then computes the amount 
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No entries to add to the CostFile. ' 


® to be billed for the employee's time based on his salary. 
DO TimeCale 


ERASE 


O 


oO 


*) 
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@ 3,25 SAY " #88 DO NOT INTERRUPT ###" 
we) @ 5,25 SAY " UPDATING THE POSTING FILE" 
_ USE B:PostFile 
APPEND FROM GetTime 
ENDIF 
DELETE FILE Get Time 
RELEASE All 
RETURN 
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eueesecses COSTUPDATE COMMAND FILE artaguaeun 

Records from the COSTFILE are added to the COSTBASE. 
This step is so critical to data integrity that we: use a password 
to prevent accidental access; verify dates; check the names of suppliers; 
and compute time charges if necessary. Notice that these are done by 
simply calling the utility command files. 

The PostFile has all its records marked for deletion after they 
have been posted (can still be recovered). 


SET TALK OFF 


e 
e 
e 
e 


4, 12 SAY ' SEFHGGCHRACHSTASSLCSSEHESHAECHFAAOHTEHERAECORESECGET 


6,12 SAY ‘MAKE CERTAIN EVERYTHING IN THE POSTFILE IS CORRECT' 


8,12 SAY ' BEFORE ENTERING THE CODE TO CONTINUE’ 
10,12 SAY 'S®0eenneenenonresnscucdeesonesnococosncastes 


SET CONSOLE OFF 
ACCEPT TO Lock 
SET CONSOLE ON 


IF t(Lock) <> 'H' 


@ 12,12 SAY ' UNAUTHORIZED ACCESS ATTEMPTED.' 
@ 14,12 SAY ‘YOU HAVE 6 SECONDS BEFORE THE EXPLOSION.' 
STORE 1 TO X 
DO WHILE X < 150 
STORE X + 1 T0 X 
ENDDO 
RELEASE Lock 
RETURN 


ELSE 


ERASE 
@ 5,20 SAY 'Checking bills in the POSTING File:' 
USE B:PostFile 
COUNT FOR .NOT. ® TO None 
IF None = 0 
@ 6,20 SAY 'No new entries in the POSTING file." 
@ 7,20 SAY '<Return> to continue.' 
WAIT 


RESTORE FROM B:Constant 

STORE 'Bill:Date’ TO Date 

DO DateTest 

DO NameTest 

DO TimeCalc 

ERASE 

@ 5,20 SAY ' *#* DO NOT INTERRUPT ###" 

@ 6,20 SAY "Posting COSTS to the Costbase.' 
* Save the number of the last record in Costbase 
USE B:CostBase 

GO BOTTOM 

STORE # TO LastReco 


USE B:Costbase INDEX B:$Supp 
APPEND FROM B:PostFile 


USE B:PostFile 
DELETE ALL 
ENDIF 


ENDIF 


RELEASE All 
RETURN 


* 
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Gueaneaeee PAYMENU COMMAND FILE #eeeeeuann 
* This is a sub-module of the Accounts.CMD file and provides choices 
* as to which checks are to be prepared for posting and printing. 
s Paying salaries has another menu level to allow partial payments 
© to selected employees (e.g., leave of absence, when an employee does not 
# work a full two week stretch, etc.) 
: The checkbook balance and next check number must be confirmed before 
® 


either of the procedures can be performed. 
PERQREAEATEFARAEAHAHCRLAEH TOTAAL VSHGHGACSPHRAGATESESRSTRRTORAEREEES 


RESTORE FROM B: Constant 

ERASE 

@ 3, O SAY 'CHECK NUMBER: '+NextCheck+' ‘ BALANCE: '+STR(MBalance, 9,2) 
2 


eee Do these match the checkbook?! 
Te C to CONTINUE,' 
7 <Return> to change.' 


~~ 


WAIT TO Continue 


IF t(Continue) <> 'C* 
RELEASE All 
RETURN 

ENDIF 


STORE T TO Paying 
DO WHILE Paying 


ERASE 

@ 5,20 Say * 1> PAY BILLS 

@ 7,20 SAY '  2> PAY SALARIES 
@ 10,20 SAY ' <RETURN>* 
WAIT TO Action 


IF Action = ‘1* 
USE B:PostFile 


* Can abort if any entries in the Postfile. 
COUNT FOR .NOT. * TO Any 


IF Any = 0 

DO PayBills 
ELSE 

2 


? 'The POSTING file has '-STR(Any,5)+' bills in it.! 
? 'De you still want to pay bills now (Y or N)?? 
WAIT TO Continue 
IF 1!(Continue) = 'Y* 
DO PayBills 
ELSE 
RELEASE All 
ENDIF 
ENDIF 
ELSE 
IF Action = ‘2! 
DO PayEmps 
ELSE 


RELEASE All 
oO RETURN 
ENDIF 2 
ENDIF 1 


STORE T TO Paying 
ENDDO Paying 


a8ea@ = PAYBILLS COMMAND FILE % 
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Before this procedure can be accessed, the check number and balance must 


be verified in the PAYMENU command file. 


This is one of the longer files, but the individual portions of it are 
not too complicated. Repetitive procedures in the main loop (controlled 
by the variable "Pinished") could have been put in separate command files 
to make this file easier to understand and maintain, but this way it 


minimizes disk accesses and increases speed. 


This file finds bills to be paid in the CostBase, generates the next 
check number, writes a check in the CheckFil and maintains the checkbook 


balance. 


The next check number and checkbook balance are recalled from a file 
called Constant.MEN. The final values for both of these are stored in the 
same file after all the bills have been paid. 

The date is entered once at the start of the procedure, then 
The date is checked to 
see that it is in the YYMMOD format, and that the values are within 
possible limits (month from 1 to 12, day from 1 to 31, yearsThisYear). 

Entries must include at least the name of the party being paid. 

Balances are automatically computed and shown to the operator. 

Check numbers are autozatically assigned by the computer. 

If several entries are made against a single check number (the 
operator has this option), these are added and shown as a single 


is automatically inserted into each entry. 


item in the printout. 


RESTORE FROM B:Constant 
DO GetDate 


SELECT PRIMARY 
USE B:CostBase INDEX B:$Supp 


Initialize. "New" is used to determine whether the program should generate 
a new check number or use the old one (where several bills to a single 


supplier are being paid). "Finished" is the control variable that determines 


whether we should run through the procedure again, or are done paying bills. 
STORE 'N' TO New 

STORE 'N' TO Finished 

DO WHILE !(Finished) <> 'F* 


STORE "C® TO Entering 
DO WHILE !(Entering) = 'C' 
ERASE 
@ 3, O SAY "CHECK NUMBER: ‘eNextCheck+! 
2? CHR(7) 
@ 4,0 
ACCEPT ' MAKE CHECK TO ' TO MName 


BALANCE: 


ACCEPT ' INVOICE NUMBER ' TO MBili:Nmbr 


ACCEPT ° ENTER AMOUNT ' TO Temp 
STORE I(MName) TO MName 
STORE 1(MBill:Nmbr) TO MBil1:Nmbr 
STORE VAL(Temp) TO MAmount 
STORE MAmount#1.00 TO MAmount 
@ 6,19 SAY MName 
@ 7,19 SAY MBi11:Nmbr 
@ 8,19 SAY Mamount 
@ 11, 0 Say! C to CHANGE,’ 
a <Return> to continue.' 
WAIT TO Entering 

ENDDO Entering 


IF LEN(MName) > 10 

STORE $(MName,1,10) TO Key 
ELSE 

STORE MName TO Key 


'eSTR(MBalance,9,2) 


oO 
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we) ENDIF 
IF Key>''' 


STORE T TO Looking 
@ 11, O SAY "I'M LOOKING, I'M LOOKING!I!" 
@ 12,0 
@ 13,0 
STORE 0 TO Start 
FIND &Key 
IF #=0 
2 
FS GEE, I CAN'T FIND THE NAME. Please check the spelling." 
si Or maybe it hasn't been posted to the COSTBASE yet." 
‘<Return> to continue.’ 
WAIT 
ERASE 
ELSE 
DO PayFind 
ENDIF there is an unpaid bill for the supplier 


an 


"Start" is brought in from PayFind.CMD. If we started at the first 
entry for a name (had only the name), Start=0. If we had more than 

the name, Start contains the record numerber we started on. Since this 
could be in the middle of the listing, we use "Counter" so that we can 
come back to the top of the listing for the name once. 

IF Start > 0 

STORE 0 TO Counter 


ELSE 
STORE 1 TO Counter 
ENDIF 


STORE ' * TO Confirm 
DO ie (Confirm) <> 'P' .AND. .NOT. Looking 
9,0 
2? ‘RECORD NAME AMOUNT BILL #'5 
+" DATE* 


2 
DISPLAY ' ‘eName, Amount, Bill:Nmbr, Bill:Date 
? 


2: CHR(7) 

a P to PAY this bill,’ 

op ae Q to QUIT without paying,' 
2° <Return> to continue.’ 
ACCEPT ' ‘ TO Confirm 


IF !(Confirm) = 'Qt 
IF !(New) = 'S' 
STORE STR(VAL(NextCheck)+1,4%) TO NextCheck 
ENDIF 
STORE ' ' TO New 
STORE T TO Looking 
ELSE 
IF !(Confirm) = 'P! 
STORE STR(#,5) TO Found 
REPLACE Check:Date WITH Date, Check:Nmbr WITH NextCheck 
STORE (MBalance-Amount) TO MBalance 


SELECT SECONDARY 

USE B:Checkfil 

APPEND BLANK 

REPLACE Check:Date WITH P.Check:Date, Name WITH P.Name,; 
Check:Nabr WITH P.Check:Nmbr, Balance WITH MBalance,; 
Amount WITH P.Amount, Bill:Nmbr WITH P.Bill:Nmbr 

SELECT PRIMARY 
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ERASE 
@ 3, O SAY 'CHECK WRITTEN: '+NextCheck+; 


‘ NEW BALANCE: '+STR(MBalance,9,2) 
? 


DISPLAY ‘PAYMENT MADE: '+Check:Date, Name, Amount, Bill:Nmbr,; 


Bill:Date OFF 
Ge 


7s S for SAME SUPPLIER (Repeats check #@)' 
2? CHR(7) 
ACCEPT ' <Return> to continue.’ TO New 


IF !(New) <> 'S! 
STORE STR(VAL(NextCheck)+1,4) TO NextCheck 
ELSE 
STORE * ' TO Confirm 
ENDIF 
ENDIF 


- IF t(New) = 'S' .OR. ! (Confirm) <> 'Pr 

* If Confirm <> 'P', we rejected the first unpaid bill that was 
shown. Rather than going back to the beginning, the loop 
below SKIPs to the next INDEXed name until we find an unpaid 
bill, or go beyond the records for the name we are paying. 

The same applies if we want to pay another bill to the 
Same supplier (News'S'). Since we are in the file on the name 
we want we SKIP to the next record until we find an unpaid 
bill or run out of records for that name. 

If we had only the name and started with the first unpaid 
bill we stop now since we have looked at all the unpaid bills 
for that supplier. 

If we could have entered the list of records for this 
supplier in the middle (more than the name provided), we look 
at the unpaid bills between where we are and the end of the 
list, then go up to the first entry for that name and check 
all of the unpaid bills that we had previously skipped past. 
This is controlled by Counter. 

After the second FIND in the command file (below), we 
stop looking when the record number we are on is greater than 
or equal to the number of the record we start on (Start). 


SKIP 
DO WHILE Check:Nmbr <> ' ' .AND. Name=Key .AND. .NOT. EOF 


We enter this loop when we reach the end of the records with 
names that match the one we are looking for. If we started 
with the first unpaid bill, the record number is greater than 
Start (because Start=0) and Counter=1 (because we set it to 
that value). The second IF below is True and we terminate the 
search. 

If Start>0, Counter=0 the first time we run out of 
records with a matching name, so the program does the ELSE 
commands below. 

Start is still >0 and Count is now 1, so the last term in 
the first IF applies. On this second pass when we get to a 
record number >=Start, we drop into the loop and do the IF to 
terminate the search because we have now looked at all the 
unpaid bills for the name we entered. 

IF EOF .OR. Name <> Key .OR. (# >= Start .AND. Start © 0; 
+AND. Counter >0) 
IF (# >= Start .AND. Counter > 0) 
STORE T TO Looking 
@4,0 
? chr(27)echr(74) 


© 
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cn We have now looked at all the entries for *+ MName 


“2? '  <Return> to continue.! 
2? CHR(7) 
IF !(New)='S! 


STORE STR(VAL(NextCheck)+1,4) TO NextCheck 


STORE 'N' to New 


ENDIF 
WAIT 
ELSE 
eas daha + 1 TO Counter 
13, 
@ 16, 0 SAY "I'M WORKING AS FAST AS I CAN -- HANG ON! " 
FIND &Key 
DO WHILE Check:Nmbr <> * * 
SKIP 
ENDDO 
ENDIF 
ENDIF 
ENDIF is it the right record 
ENDIF 
ENDDO Confirm the record 
ENDIF 
IF 1(New) <> 'S' 
@4,0 
? ehr(27)+chr(74) 
2 F if FINISHED, 
? CHR(7) 
ACCEPT ' <Return> to continue.' TO Finished 
ENDIF 


ENDDO Finished 


RELEASE MName, MBill:Nmbr, Key, MAmount, Start, Found, Looking, New, Change,}3 
Entering, Counter, Temp, Abort, Continue, Finished, Confirm, Date 


SAVE TO B:Constant 


USE B:Checkfil 

COUNT FOR .NOT. ® TO Any 

ERASE 

@ 3,0 

IF Any=0 
24 No new checks in the checkfile.' 
28 <Return> to continue.' 


? ‘There are '-STR(Any,5)+' new checks in the CheckFile.' 


? "Do you want to print the checkstubs now (Y or N)?' 
? ¢ 
WAIT TO Hardcopy 
IF ! (Hardcopy) = '¥t 
DO NameTest 
DO CheckStub 
ENDIF 
ENDIF 


RELEASE All 
RETURN 


This file is called by the PAYBILLS command file after we have found at least 
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eeenne@es8 = PAYFIND COMMAND FILE eaneseenan 


one cost entry for the supplier that we are looking for. 


This file now looks for either the first unpaid bill for the supplier 
(if only the name was specified) or looks for a complete match {if more than 


the name was specified. 


Tf an an unpaid bill meeting the criteria is found, Looking is 


set to False. Other wise it remains True. 


in 


the first record for the name every time. 
number that we start at to a variable called Start if we have more than the 


if only the name was used, at this point we are at the first 


ze more than the name was specified for the search, we could be anywhere 
the indexed list of records for this supplier. If we do not want to pay 
this particular bill, or we want to pay more bills for this 
a short cut in the PAYBILLS command file so that we do not have to start at 
To do this, we store the record 


name to look for. Otherwise, Start =0 


PITTITITITITI TL ri hk 


a 
. 
e 
. 
* 
i] 
. 
e 
# unpaid bill for the supplier name. 
s 
i 
a 
. 
e 
’ 
* 
’ 


STORE T TO Looking 
IF MBill:Nmbr > ' * .OR. MAmount > 0 


If we have more than the name, we first check for the bill number. 
If this is not found or if the bill has already been paid, 
the confirming procedure is skipped (Looking set TRUE). 

In this case, we may have entered the list of supplier bills in 
middle of the indexed list. In a later procedure, we may need to go 
back to the top and look at the names we skipped. To do this, if we 
find a record here, we store its number to "Start". 


IF MBill:Nmbr > ' * 


DO WHILE Name=Key .AND. .NOT. EOF .AND. Looking 
IF Bill:Nmbr <> MBill:Nmbr 
SKIP 
ELSE 
STORE F TO Looking 
ENDIF 
ENDDO 


® If we're on a new name or the end of the file, Looking is TRUE 
* because we have not found the supplier we were looking for. 
® Otherwise, we have a matching bill number to confirm. 
IF Looking 
oe Oe This BILL NUMBER is not in the costbase.' 
2? '<Return> to continue.' 
WAIT 
ELSE 
IF Check:Nmbr <> * ' 
STORE T TO Looking 
2? This bill paid on '+Check:Date+', check '+Check:Nmbr 
? '<Return> to continue.' 
WAIT 
ENDIF 
ENDIF 


ELSE 


® If no bill number, look for the amount and an unpaid bill. 
® If not found, skip the confirmation procedure. 
DO WHILE Name-=Key .AND. .NOT. EOF -AND. Looking 
IF Amount <> MAmount .OR. Check:Nmbr <> ' ' 
SKIP 
ELSE 
STORE F TO Looking 
ENDIF 
ENDDO 


supplier, we use 


© 


oO 
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a) ® If we're on a new name or the end of the file, Looking is TRUE 
# Otherwise, we have an unpaid bill to confira. 

IF Looking 
ve, No unpaid bill for this amount and this supplier.‘ 
2? '<Return> to continue.' 
WAIT 

ENDIF 

ENDIF 


# If we found a matching record, store its number to Start 
IF .NOT. Looking 

STORE # TO Start 
ENDIF 


ELSE 
@ If we have only the name, find the next unpaid bill 
DO WHILE Name=Key .AND. .NOT. EOF -AND. Looking 
IF Check:Nmbr <> ' ' 
SKIP 
ELSE 
STORE F TO Looking 
ENDIF 
ENDDO 


® If we're on a new name or the end of the file, Looking is TRUE 
# because we did not find the supplier we were looking for. 
# Otherwise, we have an unpaid bill to confirm. 
Oo IF Looking 
Pan There are no unpaid bills for this supplier." 
2 '<Return> to continue.' 
WAIT 
ENDIF 
ENDIF 


RETURN 
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SHeeveevenaesBeneeent PAYEMPS COMMAND FILE @##@nencareccaaccnenes 


Does noreal payroll processing or exceptions. 


SET TALK OFF 
STORE T TO Salaries 
DO WHILE Salaries 


BRASE 

@ 3,20 SAY ' PAYROLL FUNCTIONS ‘ 
@ 6,20 SAY '  1> NORMAL PAYROLL ‘ 
@ 7,20 SAY '' 2> PARTIAL PAYMENT(S) ' 
@ 8,20 SAY ' 3> SKIP EMPLOYEE(S) : 
@ 10,20 SAY ' <RETURN>* 


WAIT TO, Action 


IF Action = '1' 
DO Payroll 


ELSE 


IF Action = '2! 
ERASE 


? 
? 
z 


? 'This procedure allows you to pay less than a full salary if' 
? 'for some reason an employee skipped days of work that are ' 
2 '™not to be paid for. Do you want to continue (Y or N)?* 
WAIT TO Continue 

IF {(Continue) = 'Y! 


RESTORE FROM B: Constant 
USE B:Personne 
? 'Select the employee number for partial payment:' 


2! (Type 0 to quit.)' 

? 

2'NO. NAHE % OF Pay! 
LIST Name, Ratio®100 FOR .NOT. ® 

? 


INPUT 'Which number(0 to quit)? ' TO Wipe 
STORE INT(Wipe) TO Wipe 
DO WHILE Wipe <> 0 
GO Wipe 
? "How many days were worked! 
? ‘since the last regular payday?! 
? ‘Use decimals if needed (1 hour = 0.1333.)? 
? 
INPUT TO Worked 
STORE Worked/11.0000 TO NewRatio 
REPLACE Ratio WITH NewRatio 


? 
DISP Name, Ratio®100 
? 
INPUT ‘Next (0 to quit)? ' TO Wipe 
STORE INT(Wipe) TO Wipe 
ENDDO 


ENDIF 
RELEASE All 


? 


? ‘Do you want to SKIP any employees (Y or N)?' 
WAIT TO Skip 
IF t(Skip) <> 'y? 


DO Payroll 


ENDIF 
RELEASE Skip 


ELSE 


L* 


oO 
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IF Action = '3' 
ERASE 
? 


2 
2? 
? 'This procedure allows you to skip a paycheck in the payroll' 
? "procedure. Do you want to continue (Y¥ or N)?' 
WAIT TO Continue 
IF !(Continue) = 'Y' 
RESTORE FROM B:Constant 
USE B:Personne 
? 'Select the number of the employee to skip:' 


a? (Type 0 to quit.)' 
2'NO. NAME SKIP’ 
2? 


LIST Name, Paid FOR .NOT. ® 
? 


INPUT 'Which number (0 to quit)? ' TO Wipe 
STORE INT(Wipe) TO Wipe 
DO WHILE Wipe <> 0 

GO Wipe 

REPLACE Paid WITH T 

? 

2°"NO. NAME SKIP" 

0 

DISP Name, Paid 


? 

INPUT ‘Next? ("O"to quit) ' TO Wipe 

STORE INT(Wipe) TO Wipe re 
ENDDO 


ENDIF 
RELEASE All 


2 
? ‘Do you want to pay a partial salary' 
? "to any employees (Y or N)?* 
WAIT TO Part 
IF !(Part) <> 'y? 
DO Payroll 
ENDIF 
RELEASE Part 
ELSE 
IF Action = ‘4 
? "Something 4! 
WAIT 
ELSE 
RELEASE All 
RETURN 
ENDIF 4 
ENDIF 3 
ENDIF 2 
ENDIF 1 
STORE T TO Salaries 
ENDDO Salaries 


oO 
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$88 PAYROLL COMMAND FILE S##eteengcsauneces 
This command file generates payroll check stubs showing all deductions; gets 


the next check number and writes a check in the CheckFile, showing the new 


balance; and stores the salaries and deductions in a database called Hold81. 


This file is used to store the monthly, quarterly and annual FIT, FICA, SDI 


and SIT deductions. The deductions are not picked up from tax tables because 


there are so few employees. 


Instead, they are obtained from the individual 


employee records in the Personnel database. 


maximugs, as well as the the constant for ThisYear. Changes can be thus 
wade in a single spot and will be correct in all the programs in the 


accounting system. 


The file is quite long, but breaks down into simpler modules: 
Is Get the date and End of Month, Quarter and Year flags. 
II: Compute all deductions and net pay for an individual employee, then 
Place this in the employee record in Personne.DBF 
III: Operator verifies deductions and payroil stub is printed. 
IV: Paycheck is written to the Checkfil and all amounts are placed into 
the Hold81 summary file. 
VY: When all individuals have been paid, the Hold81 summary file is 


ry 
. 
s 
. 
cy 
ry 
* 
: Constants.MEM keeps track of the FICA and SDI percentages and their 
a 
s 
* 
s 
e 


VI: Print out the summary file and data so that the physical checkbook 
can be updated (computer does not print our checks). 
VII: Delete transient constants, save others back to Constant.MEM for 


system use 
eeeteueeenesseaens 


SESFCFSSKTAARHHSSSCSAEREGHAHTRFRHTHBTSGSR EERE E aS 


oy 
e 

. 

ry 

. 

. updated if it is the end of month, quarter or year. 
. 

e 

. 

* 

a 


APORERRSEER EOE EOD 
on @@ I: Get date and pay 
RESTORE FROM B: Constant 

DO GetDate 


STORE 'Y' TO GetWhen 
DO WHILE !(GetWhen) = "Y"  , 
ERASE 


SOCURESER TREE ROAESED 
period flags ##8sennee 


@ 1,18 SAY "PAYROLL PROCESSING" 


STORE * * TO EOY 


@ 4,8 SAY ‘Want to change the date?' GET Date 


@ 5,8 SAY '(Press <Return> 


READ 

@7; 

@ 7,35 SAY "(Y or N)" 
2 CHR(7) 

READ 

STORE !(EOY) TO EOY 
IF BOY = "x" 


STORE "Y" TO E0Q 


STORE "MN" TO EOY 
STORE " * TO EOQ 


if okay.)' 


6 SAY "Is it the end of the YEAR?" GET EOY 


@ 8, 3 SAY "Is it the end of the QUARTER?" GET E0Q 


@ 8,35 SAY "(Y or N)" 


? CHR(7) 
READ 
STORE !(£0Q) TO E0Q 
IF £0Q = "Y" 

STORE "¥" TO EOM 
ELSE 


STORE "N" TO EOQ 
STORE " " TO EOM 
@ 9, 5 SAY "Is it the 
@ 9,35 SAY "(Y or N)" 


end of the MONTH?" GET £0M 


* 


© 


Oo 
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STORE !(EOM) TO EOM 
IF EOM <> "y" 
STORE "N" TO EOM 
ENDIF 
ENDIF quarter 
ENDIF year 


ERASE 

@ 4,25 SAY $(Date,1,2)+'/'+$(Date,3,2)+'/'+$(Date,5,2) 

@ 6,0 SAY "End of YEAR: "+EOY+" End of QUARTER: "+E0Q+; 
" End of MONTH: "+EOM 

STORE " " TO GetWhen 


‘ 


@ 8,6 say 'The above information MUST be correct. ' 
2? CHR(7) 

* 2nd chance at date and flags 

ACCEPT ' Any CHANGES (Y or N)?* TO GetWhen 


STORE 'BsHold'+STR(ThisYear,2) TO Header 
# Computer now does a date and flag check 
IF !(GetWhen) <> 'y* 
IF $(Date,5,2)<'26' .AND. EOM = 'Y* 
2 


"CHECK THE INFO AGAIN. It's the end of the month, but the" 
‘date is '+Date-'. Do you want to make changes (Y or N)?! 
CHR(7) 
WAIT TO GetWhen 
ENDIF 
IF EOY ='Y' 
SELECT SECONDARY 
USE &Header 
GO BOTTOM 
IF Marker = 'Y' 
2 CHR(7) 
2 "You blew it--the end of the year has been done!' 
WAIT 
RELEASE All 
STORE T TO Paying 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ENDDO GetWhen 
RELEASE GetWhen 


DD Dd 


i) 


ITIP irri iiiiiiitiirrirrrriiiriiritrrriiry! 
wesee® TI: Calculate deductions and net pay for each individual ** Llad 
Compute deductions. Deductions for FICA, FIT, SDI and SIT are kept in the 
individual employee's Personnel record, rather than getting them from tax 
tables, because there are so few employees. (You have to decide what should 
and should not be computerized.) The "YTDxxx" variables are the year-to-date 
totals for these items. Limits and percentages for FICA and SDI are obtained 
from a file called Constant.MEM. These are the variables FICACut, FICAMax, 
FICAEnd, SDICut, SDIMax and SDIEnd. 


SELECT PRIMARY 


USE B: Personne 
REPLACE All FICA WITH (Pay:Rate*FICACUT+0.005); 
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SDI WITH (Pay:Rate*SDICUT+0.005) oO 


STORE 0 TO Count 
GO TOP 
DO WHILE .NOT. EOF 
IF Paid .OR. ® 
SKIP 
ELSE 
STORE Count + 1 TO Count 


##8 Save the employee record in case the procedure is ended ##* 
STORE STR(#,5) TO Payee 
COPY Record &Payee TO Bak 


##® Oeductions for partial salary based on number of days worked #48 
##® Ratio is computed in PayMenu.CMD 
IF Ratio < 1.0000 
REPLACE Pay:Rate WITH Pay:Rate*Ratio, FICA WITH FICA®Ratio, FIT; 
WITH FIT*Ratio, SDI WITH SDI*Ratio, SIT WITH SIT@Ratio 


ENDIF 
# Deductions and totals are computed then stored in the employee record 
* FedTemp, Statemp and EmpTemp are used to carry forward values for 
* salaries subject to FICA, SDI and state uenemployment insurance to 
* Hold81, the summary file. 
IF YTDSAL > FICAEnd 
STORE 0 TO FedTemp 
REPLACE FICA WITH 0 
ELSE 


IF (YTDSal + Pay:Rate) <= FICAEnd 
REPLACE YTDFICA WITH (YTDFICA + FICA) 
STORE Pay:Rate TO FedTemp 

ELSE 
REPLACE FICA WITH (MAXFICA - YTDFICA), YTDFICA WITH MAXFICA 
STORE (FICAEnd ~- YTDSal) TO FedTemp 

ENDIF 

ENDIF 


IF YTDSal > SDIEnd 
STORE 0 TO StaTemp 
REPLACE SDI WITH 0 
ELSE 
IF (YTDSAL + Pay:Rate) <= SDIEnd 
REPLACE YTDSDI WITH (YTDSDI + SDI) 
STORE Pay:Rate TO StaTemp 
ELSE 
REPLACE SDI WITH (MAXSDI - YTDSDI), YTDSDI WITH MAXSDI 
STORE (SDIEnd-YTDSal) TO StaTemp 
ENDIF 
ENDIF 


* In California, the employer pays an Unemployment Insurance contribution 
# on employee salary up to the amount of UIEnd. There is nothing 

© deducted from the employee salary for this, so we keep track only of 

* the employer obligation as UISal. 


IF YTDSal > UIEnd 
STORE 0 TO EmpTemp 
ELSE 
IF (Y¥TDSal + Pay:Rate) <= UIEnd 
STORE Pay:Rate TO EmpTemp 
ELSE 
STORE (UIEnd - YTDSal) TO BapTemp 
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ENDIF 
ENDIF 


REPLACE Net:Pay WITH (Pay:Rate-FICA-FIT-SDI-SIT) 
REPLACE YTDFIT WITH (YTDFIT + FIT) 

REPLACE YTDSIT WITH (¥TDSIT + SIT) 

REPLACE QTDSal WITH (QTDSal + Pay:Rate) 

REPLACE YTDSal WITH (YTDSal + Pay:Rate) 


SERGCCAHERAERE SORTS TH STARR SEATS RESTO HTOLEO TSO ECE ERAGKES ROSA THREE REDE 
ee5oganeneNeee TIT: Print employee stub #2###eussnuas 


ERASE 
SET PRINT ON 
2! "4$(Date,3,2)+'/'+$(Date,5,2)4'/'+$(Date,1,2)+': '4Name; 

+! "4$(SS:Nmbr,1,3)+'="+$(SS:Nmbr,4,2)+'=-'+$(SS:Nmbr, 6,4) 
2 GROSS PAY: $'-STR(Pay:Rate,7,2)+! NET PAY: $'5 

-STR(Net: Pay 7,2) 
3 
gt FICA FIT SDI SIT 
zs THIS CHECK: t#STR(FICA,6,2)+' '4STR(FIT,7,2)5 
+" "4STR(SDI,5,2)+! ! 4STR(SIT,7,2) 
of THIS YEAR: '+STR(YTDFICA,7,2)+’ ‘eSTR(YTDFIT,8,2); 
+ '4STR(YTDSDI,6,2) +!  '+STR(YTDSIT,7,2) 
2: TOTAL SALARY THIS QUARTER: $'-STR(QTDSal,9,2) 
2 TOTAL SALARY THIS YEAR: $'-STR(YTDSal,9,2) 
2 
? 
z 
® Pagefeed after every six employee stubs 
IF Count >= 6 
? CHR(12) 
STORE 0 TO Count 

ENDIF 
SET PRINT OFF 


IF BOQ = '¥' .AND. Paid 
REPLACE QTDSal WITH 0 
ENDIF 


FHFPKERHSSHHETSSRSEKHAHKAKSSKSHRARERELHKAHTURAHHAARAREReS 
aeeeete Tv; Record paycheck in Checkfil and Hold81 ibd 


# Now a check is "written" in the CheckFil. 
SELECT SECONDARY 
USE B:Checkfil 
APPEND BLANK 
REPLACE Check:Nmbr WITH NextCheck, Check:Date WITH Date,; 
Name WITH P.Name, Amount WITH Net:Pay, Emp:Nmbr3; 
WITH P.Emp:Nmbr, Client WITH ‘OFC', Job:Nmbr WITH 31,3 
Descrip WITH 'SALARY', Balance WITH (MBalance - Amount) 
STORE (MBalance - Amount) TO MBalance 
STORE STR(VAL(NextCheck)+1,4) TO NextCheck 


ERASE 
@ 3,25 SAY "*## DO NOT INTERRUPT ##" 
5,25 SAY "UPDATING MASTER RECORD" 


CHR(7) 
We keep an aggregate record of payroll and deductions. The amounts 


for each employee are added to the amounts already in the last 
record in the file represented by "Header". (This was set up at the 
start of the "GetWhen" loop earlier, and has the name "B:Hold81" or 
"B;Hold82" or whatever "ThisYear" is.) 

This last record is either a blank (if this is the first 


ae eae em 
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payroll of the month), or has data from previous salary payments 
made during the current month. At the end of the month, quarter and 


year, totals and a new blank record (except at the end of the year) 
are added. This is done in the next loop. 


USE &Header 


* If this is a new year, there are no records in the file so we add a 
* blank record. Otherwise, we go to the last record in the file. 
IF EOF 

APPEND BLANK 


REPLACE Check:Date WITH Date, Payroll WITH (Payroll+Pay:Rate),; 
FICA WITH (FICA+P.FICA), FICASal WITH (FICASal + FedTemp),; 
FIT WITH (FIT + P.FIT), SDI WITH (SDI+P.SDI),; 
SDISal WITH (SDISal + Statemp), SIT WITH (SIT + P.SIT),; 
UISal WITH (UISal + ExpTemp) 

SELECT PRIMARY 


#88 Reset the employee record if he was paid for part time. ### 
### The Bak file is not deleted here, as each copy command ##% 
e above wipes out the previous contents. bedahed 
IF Ratio <> 1.0000 


REPLACE Ratio WITH 1.0000 m 
UPDA FROM Bak ON Emp:Nmbr REPL Pay:Rate,FICA,FIT,SDI,SIT,Net:Pay ae) 


ENDIF 
ENDIF 


SKIP 
ENDDO personnel file 


SHRSHESRSREEESES SEFSESREFVHAHERRoeeReRe 
#28888 VY; Personnel records are reset and Holdxx is updated ® 
STORE ' ' TO Completed 
REPLACE All Paid WITH F 


USE &Header 
GO BOTTOM 
IF £OM ='Y' 
REPLACE Marker WITH 'M* 


®* If it's the end of the quarter, we total the amounts for the 
* previous three months to a new record and mark it with a 'Q'. 
IF BOQ = 'Y' 

STORE STR(#,5) TO Number 

TOTAL ON Marker TO Quarter FOR # >= (VAL(Number)-2) 

APPEND FROM Quarter 

DELETE FILE Quarter 


IF $(Date,3,2) = 03° 
REPLACE Check:Date WITH '1ST* 
ELSE oO 
IP $(Date,3,2) = '06! 
REPLACE Check:Date WITH '2ND' 
ELSE 
IF $(Date,3,2) = "09" 
REPLACE Check:Date WITH '3RD' 
ELSE 
IF ¢(Date,3,2) = *12! 
REPLACE Check:Date WITH ‘STH? 


.*) 
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ENDIF 
ENDIF 
ENDIF 
ENDIF 


REPLACE Marker WITH 'Q' 


* If it's the end of the year, we total all the quarterly amounts to 
* a new record any mark it with a 'Y'. 
IF BOY = 'Y' 
TOTAL ON Marker TO Annual FOR Marker = 'Q' 
APPEND FROH Annual 
REPLACE Marker WITH 'Y', Check:Date WITH ‘END! 
DELETE FILE Annual 
ENDIF 
ENDIF 


® If it's the end of a month but not the end of the year, we add a new 
# blank record for next month's payroll records. 
IF EOY <> 'Y' 
APPEND BLANK 
ENDIF 
ENDIF 


SHECRESTRECHSETESSERAPHGHHSEAERHHATESHRGOSTAGHTERRTAEGRRHRSAHEREEE 
VI: Print payroll summary, transfer checks to costbase @##s8#s8 
USE B:CheckFil 
COUNT FOR .NOT. *® TO Any 
IF Any-=0 

au No new checks written.' 

at <Return> to continue.' 


ELSE 
USE &Header 
ERASE 
@ 12,25 SAY "CHECK THE PRINTER, THEN PRESS <RETURN>.” 
2 CHR(7) 
WAIT 
ERASE 
SET PRINT ON 
SET MARGIN TO 45 
21 MASTER PAYROLL FILE SUMMARY: '+$(Date,3,2) +'/' 
+$(Date,5,2)+'/'+$(Date,1,2) 
2 


? 


?'DATE PAYROLL FICA  FICASAL FIT SDI SDISAL 45 
‘SIT uISal' 

2 

LIST OFF 

SET MARGIN TO 38 

? CHR(12) 

SET PRINT OFF 


ERASE 

@ 3,25 SAY "##* DO NOT INTERRUPT #**" 
@ 5,25 SAY " UPDATING THE COSTBASE" 
? CHR(7) 


USE B:CostBase INDEX B:$Supp 
APPEND FROM B:Checkfil 


DO CheckStub 
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ENDIF i) 
SSPHAPETTSHAHLESHARETETHESTHRLERETEGCHHRNCERAFETHHGUSENESHGEAESE 
#8 VII: Dump transient variables, save necessary ones ®##oaGs@ 
RELEASE Payee ,Number ,Date ,Ratio,Aborted, Printed, EOY ,E0Q,E0M, Any ,Header,; 
Count, FedTemp, StaTemp, EmpTemp, Marker, Paying, Salaries 
SAVE TO B:Constant 


USE 

RELEASE All 
DELETE FILE Bak 
RETURN 
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eeseasee2s = DEPMENU COMMAND FILE eeeesennas 


# Select deposits or perform houskeeping on the checkbook. 
BRPSTIROOPORTAOET EERO CTOTERGUROTINTSRDORKAEEREE OURS 


STORE T TO Incoming 
DO WHILE Incoming 
ERASE 


@ 5,20 SAY ' 1> ENTER MONEY COMING IN ¢ 
@ 7,20 SAY '  2> CHANGE OUR CHECK NUMBER ' 
@ 9,20 SAY ' 3> CHANGE CHECKBOOK BALANCE ' 
? 

? 

2! <RETURN>' 


WAIT TO Action 


IF Action = ‘1° 
DO Deposits 
ELSE 
IF Action = '2' 
RESTORE FROM B: Constant 
ERASE 
@ 5,0 SAY ‘This is the next check number' GET NextCheck 
@ 6,0 SAY 'To leave it unchanged, use the <return>.' 
@ 7,0 SAY 'To change it, just type in the new number.' 
READ 
SAVE TO B:Constant 
RELEASE All 
ELSE 


IF Action = '3' 
RESTORE FROM B: Constant 
STORE 'Y' TO Change 


DO WHILE !(Change) = 'Y! 
ERASE 
@ 5,0 SaY' The current balance is:' GET MBalance 
? 'To leave it unchanged, use the <return>.' 
2? 'To change it, just type in the new value.' 
READ 
? 
ae 
a? Want to change your mind (Y or N)?' 
WAIT TO Change 
ENDDO 
RELEASE Change 
SAVE TO B:Constant 
RELEASE All 
ELSE 
RELEASE All 
RETURN 
ENDIF 3 
ENDIF 2 
ENDIF 1 
ERASE 
STORE T TO Incoming 
ENDDO Incoming 


oO 
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seeeseereee® DEPOSITS COMNAND FILE e#seannenee 


This file records any money coming in in a file called Deposits. If the 
the money is in payzent of an invoice, the amount and date of payment are 
entered against that invoice in the Invoice file. 


The checkbook balance is kept current for each entry. 
At the end of the sesssion, deposits are printed out individually, then 


the total of deposits plus the new checkbook balance are printed. 
SHCSHSRAGSSESSCASOSTTECGCSASCOTHSHHO SHAH AHSOANGHESTSSHIHCHASHIGGHHHRART ERE 


RESTORE FROM B: Constant 
ERASE 


NVANNNNN Oe 


5,20 SAY ' ENTERING INCOME" 
7, 5 SAY ‘The STARTING BALANCE is '+STR(MBalance,9,2) 


If this does not match the checkbook,’ 
Return> to the main menu to change." 


C to CONTINUE.* 


WAIT TO Continue 
IF !(Continue) <> 'C' 


RELEASE All 
RETURA 


ENDIF 
RELEASE Continue 


DO GetDate 
SELECT PRIMARY 


USE B:Deposits 
COPY STRUCTURE TO GetDep 


USE GetDep 
STORE 'Y¥* TO Depositing 
DO WHILE !(Depositing) <>'F! 


APPEND BLANK 
STORE STR(#,5) TO Number 
REPLACE Dep:Date WITH Date 


ERASE 
® Next loop is used when there has been an error in the entry 


® (defined as no client or no rate). The operator is shown the 
# previous entries and can make any changes required. 

STORE 'T' TO Incorrect 

DO WHILE I(incorrect) <> 'F* 


@ 3, O SAY ' If a check covers more than one agency Invoice,’ 
@ 4; 0 SAY ' enter each invoice and amount separately.' 
? 

@ 6,0 SAY ' RECORD NUMBER: '-Number 

@ 7,0 SAY ' HOW MUCH' GET Deposit 

@ 8,0 SAY 'OUR INVOLCE NO' GET Inv:Nmbr 

@ 9,0 SAY '' CHECK FROM' GET Payer 

@ 10,0 SAY ‘THEIR CHECK NO' GET Pay:Nmbr 

@ 11,0 SAY '' Comments' GET Comments 

? CHR(7) 

READ 


REPLACE Payer WITH !(Payer), Comments WITH ! (Comments) 
@ 9,15 SAY Payer 
@ 11,15 SAY Comments 


IF Payer <> ' ' .AND. Deposit > ce) 
@ 17,5 SAY '' C to CHANGE,’ 


Oo 


oO 
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@ 18,5 SAY '<Return> to continue.’ 
° 


? CHR(7) 
WAIT TO Depositing 
IF !(Depositing)='C’ 
STORE ‘T' TO Incorrect 
ERASE 
ELSE 
STORE (MBalance + Deposit) TO MBalance 
@ 17, 5 SAY '  F if FINISHED,' 


V9 


? CHR(7) 
WAIT TO Depositing 


S) 


STORE 'F' TO Incorrect 


ENDIF 
ELSE 
@ 15,5 SAY ‘CHECK WRITER or AMOUNT missing.' 
2 
eae! F if FINISHED," 
2 <Return> to correct the record.' 
2 CHR(7) 
WAIT TO Depositing 
ERASE 


IF !(Depositing)= 'Ft 
DELETE RECORD &Number 
STORE 'F' TO Incorrect 

ELSE 
ERASE 
STORE 'T' TO Incorrect 

ENDIF 

ENDIF 
ENDDO Incorrect 
ENDDO Depositing 


RELEASE Change, Date, NoDate, Depositing, Number, Update, New, Incorrect 
SAVE TO B:Constant 


COUNT FOR .NOT. * TO Any 

ERASE 

IF Any = 0 
2 'No deposits to add to the file." 
? ‘Press any key to continue.' 


2? CHR(7) 
USE 
WAIT 
ELSE 
DO DepPrint 
* The next portion of this program uses the Primary and Secondary work 
* areas to record payments received against agency invoices in the record 
* for that invoice in the Invoices file. Both work areas are necessary so 
® that we can compare each record in the GetDep file against all of the 
* records in the Invoices file. 


DO DepTrans 
USE B:Deposits 
APPEND FROM GetDep 
EXDIF there are deposits to add to the file 


DELETE FILE GetDep 
RELEASE All 
RETURN 
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eetaaanese DEPPRINT COMMAND FILE SRSRSESEES 
® Prints valid deposits in the GetDep file as part of the Deposits file. 
PTTTTITITTIT ITT) 


@ 5,10 SAY 'To print the deposits you just entered,’ 
@ 6,10 SAY 'press <Return>.' 
2 CHR(7) 
WAIT 
SET PRINT ON 
2° DATE PAID BY AMOUNT INV # COMMENTS: * 
ei 
GO TOP 
STORE 0 TO Count 
DO WHILE .NOT. EOF 
DISELAY OFF Dep:Date, Payer, Deposit, Inv:Nmbr, Comments FOR NOT. * 
SKIP : 
STORE Count+1 TO Count 
IF Count=10 
STORE 0 TO Count 
WAIT 
ENDIF 
ENDDO 
SUM Deposit TO Temp 
? 


2.' The total deposit is ' + STR(Temp,9,2) 

? 

2?‘ The final balance is ' + STR(Mbalance,9,2) 

2? 

SET PRINT OFF oO 


RELEASE Count, Temp 
RETURN 
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SOT EeREER DEPTRANS COMMAND FILE SRSEEHRE EH 
* Applies deposits from the GetDep file against the matching invoices in the 


® Invoices file as payments are received against them. 
Lith bith itd ttt iS iiittititiiiiitiiiiiiitiiitiviititirtt yi 


GO TOP 

ERASE 

DO WHILE .NOT. EOF 
STORE STR(#,5) TO Number 
@ 6,20 SAY ‘RECORD NUMBER  '+Number 
2? CHR(7) + CHR(27) + CHR(74) 


IF Inv:Nmbr=" * .OR. * 
SKIP 

ELSE 
@ 7,20 SAY "INVOICE NUMBER '+Inv:Nmbr 
STORE Inv:Nmbr TO Key 


SELECT SECONDARY 
USE B:Invoices INDEX B:Invoices 
FIND &Key 
STORE T TO Again 
STORE 'T' TO Decision 
IF #=0 

DO WHILE Again 

@ 9,15 SAY 'THIS INVOICE NUMBER IS NOT IN THE INVOICE FILE. ' 


@ 11,15 SAY * E to EDIT it. ' 
@ 12,15 Say ' C to CONTINUE. ' 
? 

i) tans 
WAIT TO Decision 


IF !(Decision) = 'Et 
SELECT PRIMARY 
EDIT &Number 
SELECT SECONDARY 
STORE F TO Again 
ELSE 
IF !(Decision) = 'C! 
STORE F TO Again 


ELSE 
STORE T TO Again 
ENDIF C 
ENDIF E 
ENDDO 
ELSE 
REPLACE Amt:Red WITH (Amt:Red + Deposit), Date:Red WITH Dep: Date 
ENDIF 


SELECT PRIMARY 


® We do not skip to the next record if the record was edited. This 
* allows us to run the edited record through the process again. 
IF !(Decision) <> 'E! 
SKIP 
ENDIF 


ENDIF no invoice number or record deleted 
ENDDO the transfer 
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SRRRTRERETEREER IOMENU COMMAND FILE SSHEESCRAHEEEREEEE 
® Selects the appropriate action to be taken with insertion orders 


® (instructions from our ad agency to magazine publishers) 


SRCCTOTRASTAS TOROS ERED HET E TREE Eee 


STORE T TO Inserting 
DO WHILE Inserting 


ERASE 

@ 7,20 SAY 
@ 9,20 SAY 
@ 11,20 SAY 
@ 12,20 SAY 
@ 14,20 SAY 


: 1> ENTER INSERTION ORDERS* 

« 2> EDIT INSERTION ORDERS' 

ii 3> REVIEW/PRINT INSERTION ORDERS* 
y BY CLIENT & MAGAZINE' 

Lt <RETURN>* 


WAIT TO Action 


IF Action = 


DO I0Post 


ELSE 


0 


IF Action = '2' 


STORE 


"Y" TO Changing 


DO WHILE !(Changing)="¥' 
USE B:Inserts 


IF 


EOF 
? ‘There are no entries in the INSERTION ORDER file.' 
STORE "N" TO Changing 


ELSE 


STORE 10:Nmbr TO First 

GO BOTTOM 

STORE I0:Nmbr TO Last 

ERASE 

@ 3,15 SAY ‘EDITING INSERTION ORDERS '+First+¢'thru '+Last 

@ 5,15 SAY '“W to SAVE, “Q to CANCEL changes you make.' 

@ 6,15 SAY '°R for PREVIOUS, “C for NEXT record if MORE = T* 
2 


‘z 
ACCEPT 'Which ORDER NUMBER do you want to EDIT?’ TO Order 
USE BsInserts INDEX B:Inserts 
FIND &0rder 
IF #=0 
? 


9 


? 'That insertion order is not in the file.' 
? "Do you want to continue (Y or N)?' 
WAIT TO Changing 
ELSE 
STORE STR(#,5) TO Number 
Edit &Number 
REPLACE Client WITH 1(Client), Ad WITH 1(Ad) Magazine WITH; 
1 (Magazine) 
? 
2? 'Do you want to edit any other insertion orders (Y or N)?* 
WAIT TO Changing 
ENDIF 


ENDIF 
ENDDO Changing 
RELEASE All 


ELSE 
IF Action ='3' 
DO JOReview 
ELSE 
RELEASE All 
RETURN 
ENDIF 3 


oO 


Oo 


Oo 
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ENDIF 1 


STORE T TO Inserting 
ENDDO Inserting 
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enesenen IOPOST COMMAND FILE seeescaned 
® Gets information for insertion orders (instructions to magazine 
® publishers from our ad agency). Works much like Postbills and a) 
e 


attime. 
enaer 


RESTORE FROM B: Constant 
DO GetDate 


USE B:Inserts 
COPY STRUCTURE TO GetInserts 
USE GetInserts 


STORE ' ' TO New 
STORE 'Y' TO Inserting 
DO WHILE !(Inserting) <>'F* 
APPEND BLANK 
STORE STR(#,5) TO Number 
REPLACE I0:Date WITH Date, IO:Nmbr WITH Next: IO 


ERASE 
# Next loop is used when there has been an error in the entry 


® (defined as no client or no rate). 
STORE 'T' TO Incorrect 
DO WHILE !(Incorrect) <> 'F' 


ERASE 
@ 4,0 SAY ' INSERTION ORDER: '+lO:Nmbr 
@ 4,30 SAY ' DATE: '+Date 
? 
@ 6,0 SAY ' RECORD NUMBER: '-Number 
IF 1tWew) = "st? 
@ 7,0 SAY ' OUR CLIENT :" + MClient 
ELSE 
@ 7,0 SAY' OUR CLIENT ' GET MClient 
STORE !(MClient) TO MClient 
ENDIF 
@ 8,0 SAY’ JOB NUMBER ' GET Job:Nobr 
@ 9,0 SAY " AD DESCRIPTION * GET Ad 
@ 10,0 SAY *' HOW MUCH SPACE ' GET Space 
@ 11,0 SAY ' WHICH MAGAZINE ' GET Magazine 
@ 12,0 SAY ' WHICH ISSUE ' GET Issue 
@ 13,0 SAY 'GROSS SPACE COST ' GET Gross:Cost 
@ 14,0 SAY '' DISCOUNT RATE ' GET Times 
READ 


REPLACE Net:Cost WITH Gross:Cost#0.8500, Client WITH MClient,; 
Ad WITH !(Ad), Magazine WITH !(Magazine), Issue WITH !(Issue) 
@ 7,18 SAY Client 
@ 9,18 SAY Ad 
@ 11,18 SAY Magazine 
@ 12,18 SAY Issue 
@ 15,0 SAY ' NET SPACE COST ' GET Net:Cost 


IF Client <> ' * .AND. Gross:Cost > O .AND. Job:Nmbr > 99 
@ 18,5 SAY ' C to CHANGE,' 


@ 19,5 SAY '<Return> to continue.' 
? 
WAIT TO New 


IF !(New)="C! 
STORE 'T' TO Incorrect 
ELSE 
@ 17, 5 SAY" F if FINISHED,' 
@ 18, S SAY *  S for SAME insertion order,' 
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@ 19, 5 SAY '<Return> for NEXT insertion order.' 
@ 21, 0 SAY '' y 
ACCEPT TO New 


oO IF (New) <> 'S! 
IF VAL(Next:I0) < 9999 


TORE STR(VAL(Next:10)+1,4) TO Next:I0 
ELS 
STORE '1001' TO Next:I0 
ENDIF 
ENDIF 
STORE 'F' TO Incorrect 
ENDIF 
STORE New TO Inserting 
ELSE 


ae) 


CLIENT, JOB or RATE missing.' 


if P if PINISHED,' 
. <Return> to correct the record.' 


VNVVVVN VA 


WAIT TO Inserting 

IF !(Inserting)= 'F* 
DELETE RECORD &Number 
STORE 'F' TO Incorrect 


ELSE 
STORE 'T' TO Incorrect 
ENDIF 


ENDIF 
ENDDO Incorrect 
ENDDO Inserting 


RELEASE Date, NoDate, Inserting, Number, Update, New, Incorrect 
SAVE TO B:Constant 


COUNT FOR .NOT. ® TO Any 
ERASE 
IF Any = 0 
? ‘No insertions to add to the file.' 
? ‘Press any key to continue.' 
USE 
WAIT 
ELSE 
@ 5,10 SAY 'To print the insertions you just entered,’ 
@ 6,10 SAY ‘press <Return>.* 
WAIT TO Number 
*"Number" determines the starting record number for the printout 


SET PRINT ON 

? ‘IO # MAGAZINE ISSUE JOB AD os 
+'SPACE GROSS NET X DATE' 

? 

® "Output" and"Condition™ needed in che Printout Command file 

STORE tY¥' TO Output 


STORE ‘OFF’ TO Condition 
DO Printout 


ERASE 
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@ 5,20 SAY "UPDATING THE INSERTION ORDER FILE 
USE B:Inserts INDEX B:Inserts 
APPEND FROM GetInserts 
ENDIF 
DELETE FILE Getinserts 


RELEASE All 
RETURN 
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ReNHOHBREH  TOREVIEW COMMAND FILE #### eB OnE 
iH Provides insertion order displays and printout. 
The operator can select all the insertions for the elient, 


* or can select only those for a particular magazine. 
LLL LEIP t TI Lilititieritiriitititiritiirtt tty ttt yy 


SET TALK OFF 
USE B:Inserts 


STORE ' ' TO Again 
DO WHILE !(Again) <> 'Ft 
STORE ' ' TO MClient 
STORE ' ' TO MMagazine 
STORE ' ' TO Hardcopy 
STORE ' ' TO Other 
ERASE 


@ 2,11 SAY' MEDIA SUMMARY:' 
@ 4,11 SAY ‘ENTER CLIENT CODE' GET MClient 
@ 5,11 SAY ' MAGAZINE NAME?' GET MMag§zine 


@ 6,11 Say ' P to PRINT' GET Hardcopy 
READ 
IF MClient = ' ' 
@ 9, 0Say'' 
22 CLIENT missing.* 
Zt F if Finished,’ 
?.'  <Return> to continue.' 
WAIT TO Again 
ELSE 
STORE !(MClient) TO MClient 
STORE !(MMagazine) TO MMagazine 
STORE t(Hardecopy) TO Hardcopy 
@ 4,29 SAY MClient 
@ 5,29 SAY MMagazine 
@ 6,29 SAY Hardcopy 
@9, osay'' 
? 
? 


ACCEPT ‘Type C to CHANGE any entries' TO Changes 
IF t(Changes) = 'C! 
STORE ’ * TO Again 
ERASE 
ELSE 
IF MMagazine >’ ie 
STORE TRIM(MMagazine) TO MMagazine 
STORE '.AND. Magazine=MMagazine't TO Condition 
ELSE 
STORE CHR(0) TO Condition 
ENDIF 


IF !(Hardcopy) = 'P! 

STORE 'TO FRINT' TO Hardcopy 
ELSE 
STORE CHR(0) TO Hardcopy 
ENDIF Hardcopy 


oO SET HEADING TO MEDIA SUMMARY FOR &MClient &MMagazine 


REPORT FORM Media &Hardcopy FOR Client=MClient & Condition 
2 


me F if Finished,’ 
2? ' Return> to continue.’ 
WAIT TO Again 
ERASE 
ENDIF okay to do the report 
ENDIF 
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ENDDO Again 


ERASE 
RELEASE All 
RETURN 
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RRARHERHREER AE INVMENU COMMAND FILE S838 8# SR ERE ER EE 

* Functions are selected by the menu. This procedure works with two data 
* files, BILLINGS and INVOICES. BILLINGS keeps track of the amount 

* billed to a client by individual job number, while INVOICES is a 

* summary of the total billed on any given invoice. This latter file can 
*" be used to set up an accounts receivable system, as it has fields for 

: storing how much has been received in payment against an invoice and 

* 


when that amount was received (filled in by the Deposits.CMD file). 
HETERRRAATSERSAAREGTAAAEGEEPE REE SLERHHEEERERAERRSRH AGRE RRGHDRETESEP ORE ER 


ERASE 
STORE T TO Invoicing 
DO WHILE Invoicing 
@ 5,20 SAY ' 1> BILL CLIENTS BY JOB’ 
@ 7,20 SAY * 2> EDIT INVOICES and BILLINGS! 
@ 9,20 SAY ' 3> REVIEW/PRINT INVOICES and BILLINGS' 
@ 12,20 SAY ' <RETURN>* 
WAIT TO Action 


IF Action = "1" 
DO Invoices 
ELSE 
IF Action = "2" 
STORE 'Y'TO sae 
DO WHILE {(Changing) = 'Y* 


ERASE 
Pe J to edit individual job billings,’ 
i ees <Return> to edit the summary invoices.! 
WAIT TO Which 
IF !(Which) = tut 
STORE 'Billings' TO Database 
ELSE 
STORE 'Invoices' TO Database 
ENDIF 


USE B:&Database 
STORE Inv:Nmbr TO First 
GO BOTTOM 
STORE Inv:Nmbr TO Last 
ERASE 
@ 3,10 SAY ‘EDITING '+!(Database) 
@ 3,35 SAY First+'thru '+Last 
@ 5,10 SAY '“W to SAVE, “Q to CANCEL changes you make.' 
@ 6,10 SAY '°R for PREVIOUS, “C for NEXT record.! 
@ 8,10 SAY ‘Which INVOICE NUMBER do you want to EDIT?! 
IF 1(Which) = ‘J! 
@ 9,10 SAY 'This takes you to the FIRST ENTRY for that number.’ 
@ 10,10 SAY "Use “C to look at the rest of them.' 
ENDIF 
ACCEPT TO Invoice 


USE B:&Database INDEX B:&Database 
FIND &Invoice 


IF #=0 
? 
2 é 
? 'That invoice number is not in the file." 
oO 2? 'Do you want to continue (Y or N)?' 


WAIT TO Changing 
ELSE 
STORE STR(#,5) TO Number 
Edit &Number 
REPLACE Sales:Tax WITH 0.06®Taxable 
REPLACE Client WITH !(Client) 
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IF 1(Which) = ‘J! 
eupRer LACE Desertp WITH {(Deserip) ,PO:Nmbr WITH 1(PO:Nmbr) oO 
NDIF 

A 


? "Do you want to edit any other invoices (Y or N)?* 
WALT TO Changing 
ENDIF 
ENDDO Changing 
RELEASE All 
ELSE 
IF Action ='3' 
ERASE 
@4,osay'' 
mit J to see individual job billings,’ 
2 <Return> to see the summary invoices.’ 
WAIT TO Which 
IF t(Which) = 'J* 
STORE ‘Billings’ TO Database 
ELSE 
STORE 'Invoices' TO Database 
ENDIF 


USE B:&Database 
STORE 'Y' TO Reviewing 
DO WHILE 1(Reviewing)='Y' 
GO BOTTOM 
STORE STR(#,5) TO Last 


ERASE 
@ 5,10 SAY 'The '+!(Database)+' file has '-Last-' entries.' 
@ 7,10 SAY '<Return> to see the entire file, or' 

@ 8,10 SAY ‘enter the record number to start on.’ 

ACCEPT TO Number 


? ‘Do you want to print the file now (Y or N)?! 
WAIT TO Output 


IF 1(Output)="Y* 
SET PRINT ON 
ENDIF 


STORE CHR(0) TO Condition 
DO Printout 


? 
SET PRINT OFF 
2? "Do you want to see it again (Y or N)?* 
WAIT TO Reviewing 
ERASE 
ENDDO Reviewing 
RELEASE All 
ELSE 
RELEASE All 
RETURN 
ENDIF 3 
ENDIF 2 
ENDIF 1 


FRASE 
STORE T TO Invoicing 
ENDDO Invoicing 
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eneneeeee® INVOICES COMMAND FILE e#eenegues 
This file accepts inputs for invoices to clients. Individual projects 
and items are stored in the Billings data file. Any number of items 
may be entered using a single invoice number. Invoice numbers are 
automatically generated by the computer and stored in the Constant.Mem 
file. 

After all the job billings have been entered, they are summarized by 
invoice number and the data is stored in the Invoices file. 


A printout of items lled and invoice tot is provided. 
BHEESETEDRSHRSERECEROET SORCRHERAHHOES aeggtcgsaaosaeseen 


RESTORE FROM B: Constant 
DO GetDate 


USE B:Billings 
COPY STRUCTURE TO GetCosts 


USE GetCosts 
STORE ' ' TO Billing 
DO WHILE !(Billing) <>'F 
APPEND BLANK 
STORE STR(#,5) TO Number 
REPLACE Inv:Date WITH Date, Inv:Nmbr WITH Next:Inv 


ERASE 
STORE 'T' TO Entering 
DO WHILE !(Entering) <> 'F* 


ERASE 
@ 3, 0 SAY ‘INVOICE NUMBER '+Next:Inv 
@ 3,30 SAY’ DATE ‘'+Inv:Date 
@ 5,0 SAY ' RECORD NUMBER: '-Number 
IF !(Billing) = 's' 
@ 7,0 SAY ' CLIENT: "+ MClient 
REPLACE Client WITH MClient 
ELSE 
@€ 7,0 SAY ' CLIENT ' GET Client 
ENDIF 


@ 8,0 SAY ' JOB NUMBER ' GET Job:Nmbr 
@ 9,0 SAY ‘TAXABLE AMOUNT ' GET Taxable 
@ 10,0 SAY 'TAXFREE AMOUNT ' GET TaxFree 
@ 11,0 SAY * P. 0. NUMBER ' GET PO:Nmbr 
@ 12,0 SAY * DESCRIPTION * GET Descrip 
READ 


STORE 1(Client) TO MClient 
REPLACE Client WITH MClient ,Descrip WITH t(Descrip) ,; 
PO:Nmbr WITH !(PO:Nmbr) 
@ 17,16 SAY Client 
@ 11,16 SAY PO:Nmbr 
@ 12,16 SAY Descrip 
IF Taxable > 0 
REPLACE Sales:Tax WITH 0.06#Taxable 


@ 13,0 SAY ' SALES TAX'GET Sales:Tax 
ENDIF 
IF Job:Nmbr < 100 

@ 16,0 SAY ' JOB not 3 digits.’ 
ENDIF 


IF MClient <> ' ' .AND. (Taxable > 0 .OR. TaxFree > 0) 
@ 17,0 SAY '' C to CHANGE this entry.’ 
ap Oe <Return> to continue.' 
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WAIT TO New 


IF t(New)="C* 
STORE 'T' TO Entering 
ELSE 
@ 16, osay' F if FINISHED, , 
@ 17, O SAY ' S for SAME invoice number,' 
@ 18, oSsAY' <Return> for NEXT invoice number." 
@ 19, OSAY' - 


ACCEPT TO New 


IF 1(New) <> 'S* 
STORE STR(VAL(Next:Inv)+3,5) TO Next:Inv 
ENDIF 
STORE 'F' TO Entering 
ENDIF 
STORE New TO Billing 
ELSE 
@ 17,0 SAY’ CLIENT or AMOUNT missing.' 
? 


ey F if FINISHED,' 
ie <Return> to correct the record.' 
WAIT TO Billing 
IF 1(BLlling)= 'F' 
DELETE RECORD &Number 
STORE 'F' TO Entering 
ELSE 
STORE 'T' TO Entering 
ENDIF 
= ENDIF 


ENDDO Entering 
ENDDO Billing 
RELEASE Billing, Entering, MClient, Task, Number, Date, New 


SAVE TO B:Constant 
PACK 


GO TOP 

ERASE 

IF EOF 
? 'No invoices to add to the file.' 
? 'Press any key to continue.' 
WAIT 


ELSE 
@ 5,20 SAY '##*# DO NOT INTERRUPT afl! 
@ 7,20 SAY "UPDATING BILLINGS AND INVOICES' 


Costs entered are totalled by invoice number to Scratch because several 
job costs can be entered against each invoice number. Amounts are adusted 
for one client who always pays promptly and takes a 2% discount. Each 
invoice is totalled. Temp has only summary data needed for a printout. 


USE B:Invoices 
COPY STRUCTURE TO Scratch 


USE GetCosts 


ERASE 
@ 5,10 SAY 'When ready to print the billings you just added,’ 
@ 6,10 SAY ‘press <Return>' 

TOTAL ON Inv:Nmbr TO Scratch FIELDS Taxable, Sales:Tax, TaxFree 

WAIT TO Number 


SET PRINT ON 
? ‘ENTRIES BY JOB NUMBER:* 
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‘INV @ JOB DATE TAXABLE TAX TAXFREE P.O.# DESCRIPTION’ 


eed 


* "Output" is needed in the Printout Command file 
STORE 'Y' TO Output 

STORE 'OFF' TO Condition 

BO Printout 


® One of our clients always pays promptly and takes a 2% discount. 

* We do this after the original entries were printed out: 

REPLACE Taxable WITH 0.980®Taxable, TaxFree WITH 0.980"TaxFree, Sales:Tax; 
WITH 0.9808Sales:Tax FOR Client = 'SPI' 

2 

? ‘Updating the BILLINGS database now.' 
USE B:Billings INDEX B:Billings 

APPEND FROM GetCosts 


USE Scratch 
REPLACE All Amount WITH (Taxable + Sales:Tax + TaxFree) 
COPY TO Temp FIELDS Inv:Date, Inv:Nmbr, Taxable, Sales:Tax,; 
TaxFree, Amount 
REPLACE Taxable WITH 0.980*Taxable, TaxFree WITH 0.980"TaxFree, Sales:Tax; 
WITH 0.9808Sales:Tax, Amount WITH 0.980®Amount FOR Client = 'SPI' 


USE Temp 

STORE 'Y' TO Output 
SET PRINT ON 

? 


? 

? "TOTALS BY INVOICE NUMBER:' 

a 

? "DATE INV# TAXABLE TAX TAXFREE TOTAL* 
? 


DO Printout 

? 

? ‘Updating the INVOICES database now.' 
USE B:Invoices INDEX B:Invoices 

APPEND FROM Scratch 


ENDIF 


USE 
DEL 
DEL 
DEL 
REL! 
RET 


ETE FILE Scratch 
ETE FILE Temp 

ETE FILE GetCosts 
EASE All 

URN 
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#eeeee2ee8@ = =REPORTMENU COMMAND FILE #eseeeusae 
© This command file is a sub-module of the ACCOUNTS.CMD control 
@ module. It provides detailed choices that relate to reports 
® that the user might choose to see or print from the cost 
® database. The functions are set up as sub-sub-procedures 


er the control of this module, 
SUSFSFELEPSRESHTATHSFETAFHEGTFTCHTCSRAGSARETETRSRALEC HER OHEEENS 


ERASE 
STORE T TO Reporting 
DO WHILE Reporting 


@ 3,20 SAY ' 1> COSTS BY JOB" 

@ 5,20 SAY '' 2> FIND & EDIT SILLS'* 

@ 7,20 sar ' 3> REVIEW A DATABASE" 

@ 9,20 SAY ' 4> Quarterly Sales Tax Summary' 

@ 11,20 SAY ' 5> RE-INDEX THE COSTBASE ON JOB NUMBERS’ 
@ 12,20 SAY " Make sure you won't need the computer" 
@ 13,20 Say ' for a while: this takes a long time.’ 
@ 17,20 SAY " <RETURN>" 


WAIT TO Action 


IF Action = '1' 
USE B:Postfile 
COUNT FOR .NOT. ® TO Any 
IF Any > 0 
@ 15, 0 SAY CHR(27)+CHR(74) 
? 'There are '+STR(Any,5)+' entries in the Postfile.' 
? 'Do you still want to do the Job Costs (¥ or N).' 
WAIT TO Continue 
IF t(Continue) = 'Y' 
DO JobCosts 
ENDIF 
ELSE 
DO JobCosts 
ENDIF 
RELEASE Any 
ELSE 
IF Action = '2' 
DO FindBills 


ELSE 
IF Action = '3' 
ERASE 
DISPLAY FILES ON B 
2 
2 


? ‘Which file do you want to review?! 
ACCEPT TO Database 
IF FILE("B:"+DATABASE) > 0 
USE B: &Database 
DO Review 
ELSE 
*® Erases IBM 3101 to end of screen 
@ 17,0 SAY CHR(27)+CHR(74) 
@ 17,0 SAY !(Database) + " isn’t on the list, is it? 
+ ‘your spelling, then hit <Return>' 
? ‘and try again. Or not, as the case may be.' 


WAI 
ENDIF 
ELSE 
IF Action = "4" 
DO SalesTax 
ELSE 


IF Action = '5! 


Check "; 


oO 


oO 


*) 


DO JobsIndx 
ELSE 
RELEASE All 
RETURN 
ENDIF 5 
ENDIF 4 
ENDIF 3 
ENDIF 2 
ENDIF 1 
ERASE 
STORE T TO Reporting 
ENDDO Reporting 
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eeeeeereen = =JOBCOSTS COMMAND FILE s#eaneeeen 
Provides summaries of costs by client and job number. This can a) 


also be used to summarize all office categories, since they fall 
into these fields. 

REPORTS ARE BY JOB NUMBER. Client code is used only in the heading. 
The report is actually prepared based on the job number, so accuracy is 
eritical. 

This file works with a partially indexed costbase, so "Unindexed" is 
used to keep track of how many records are not in the index. If this gets 


yond a specific number, the operator is prompted to reindex the Costbase. 
SRSHSTRERRER AR HERERESERAAESSHHMRATRTSTERHRA PASAT RGRATAGSARTASESEED 


eae nenee ne 


SET TALK OFF 


RESTORE FROM B: Constant 
DO GetDate 


STORE 0 TO Unindexed 
STORE ' ' TO Again 
DO WHILE ! (Again) <> 'Ft 
STORE ' * TO MClient 
STORE ' * TO MJob:Nmbr 
STORE ' ' TO Hardcopy 
STORE 'N' TO Number 
ERASE 
@ 2,11 SAY ' JOB COST SUMMARY :' 
@ 4,11 SAY "ENTER CLIENT CODE ' GET MClient 
@ 5,11 SAY ' ENTER JOB NUMBER ' GET MJob:Nmbr 
t 
' 


@ 6,11 SAY! P to PRINT ' GET Hardcopy 
GET Number 
READ 


@ 7,11 SAY 'SHOW BILL NUMBERS 
2 
IF MClient = ' ' .OR. MJob:Nmbr= '' ' 


@ 9,0 

2'' CLIENT or JOB NUMBER missing. 
2: F if Finished,' 

? ' Return> to continue.' 


WAIT TO Again 


E 

@ 8,0 SAY CHR(27)+CHR(74) 

ACCEPT ' OPTIONAL JOB DESCRIPTION ' TO Message 
STORE TRIM(I(Message)) TO Message 

STORE !(MClient) TO MClient 

STORE !(Hardeopy) TO Hardcopy 

STORE |(Number) TO Number 

@ 4,30 SAY MClient 

@ 6,30 SAY Hardcopy 

@ 7,30 SAY Number 

@ 9,30 SAY Message 
5 


ELS: 


2? 
ACCEPT 'Type C to CHANGE any entries’ TO Changes 
IF 1(Changes) = 'C* 

STORE ' ' TO Again 


ELSE 
ERASE 
IF !(Hardcopy) = 'P! 


STORE "TO PRINT" TO Hardcopy 
SET PRINT ON 
ENDIF Hardcopy 


IF Number = 'Y' 
STORE 'Bill #' TO Other 


*) 
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ELSE 
STORE CHR(0) TO Other 
ENDIF 


? $(Date,3,2)+'/'+$(Date,5,2)4'/'+$(Date,1,2)+': 
+'&MClient-&MJob:Nmbrt 


te " + Message 

> 

? "DATE NAME DESCRIPTION 
+" &Other' 

‘2 


USE B:CostBase INDEX B:$Jobs 
IF Number = 'Y’ 

STORE ',Bill:Nmbr' TO Other 
ELSE 

STORE CHR(0) TO Other 
ENDIF 


STORE 0 TO Sum 

STORE 0 TO HowMany 

STORE 0 TO LineCnt 

STORE 0 TO Spacer 

FIND &MJob:Nmbr 

IF # <> 0 

DO WHILE Job:Nmbr = VAL(MJob:Nmbr) .AND. .NOT 

DISPLAY Next 1 Bill:Date,Name,Descrip+' 
STORE Sum + Amount TO Sum 
STORE LineCnt + 1 TO LineCnt 
STORE Spacer + 1 TO Spacer 


IF Spacer = 10 


q 
STORE 0 TO Spacer 
ENDIF 


IF LineCnt = 50 
2? CHR(12) 
STORE 0 TO LineCnt 
STORE 0 TO Spacer 


COST SUMMARY FOR '; 


AMOUNT '; 


- EOF 
‘,Amount &0ther OFF 


2 "DATE NAME DESCRIPTION ' ; 


+ AMOUNT' 
? 


ENDIF 
SKIP 
ENDDO 
ENDIF 


GO TOP 
STORE VAL(Name) TO LastReco 
USE B:Costbase 
STORE 0 TO Unindexed 
GO LastReco 
SKIP 
DO WHILE .NOT. EOF 
DISPLAY Next 1 Bill:Date, Name, Descrip+' 3 
FOR Job:Nmbr = VAL(MJob:Nmbr) OFF 
IF Job:Nmbr = &MJob:Nmbr 
STORE Sum + Amount TO Sum 
STORE LineCnt + 1 TO LineCnt 
STORE Spacer + 1 TO Spacer 


IF Spacer = 10 
2 
STORE 0 TO Spacer 


» Amount; 
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ENDIF 


IF LineCnt = 50 
2? CHR(12) 
STORE 0 TO LineCnt 
STORE 0 TO Spacer 


? "DATE NAME DESCRIPTION’ ; 
+ AMOUNT! 
? 
ENDIF 
ENDIF 
STORE Unindexed + 1 TO Unindexed 
SKIP 
ENDDO 
? 
i eg TOTAL COSTS TO DATE: 


STR(Sum,9,2) 


STORE LineCnt + 2 TO LineCnt 
STORE O TO Spacer 
IF Linecnt = 40 
? CHR(12) 
STORE 0 TO LineCnt 
ELSE 
? 
2 
? 
ENDIF 


USE B:Billings 
? "BILLED TO DATE FOR &MClient-&MJob:Nmbr’ 


2 

? ‘DATE INV# DESCRIPTION TAXABLE' +; 
” TAX TAX FREE’ 

? 


STORE LineCnt + 4 TO LineCnt 
STORE O TO Sum 
STORE 0 TO T 
STORE 0 TO S 
STORE 0 TO F 
DO WHILE .NOT. EOF 
IF Job:Nmbr = &MJob:Nmbr 


DISPLAY Next 1 Inv:Date, Inv:Nmbr, Descrip,STR(Taxable,9,2)+' '; 
STR(Sales:Tax,9,2)+' ',TaxFree FOR Job:Nmbr = &MJob:Nmbr OFF 


STORE T + Taxable TO T 

STORE S + Sales:Tax TO S 

STORE F + TaxFree TO F 

STORE Sum + Taxable + Sales:Tax + TaxFree TO Sum 
STORE LineCnt + 1 TO Linecnt 

STORE Spacer + 1 TO Spacer 


IF Spacer = 10 
? 


STORE 0 TO Spacer 
ENDIF 


IF Line™t = 50 
? CaR(12) 
STORE 0 TO LineCnt 
STORE 0 TO Spacer 
: "DATE INV#@ DESCRIPTION TAXABLE TAX 
ENDIF 
ENDIF 


TAX FREE! 


© 
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SKIP 

ENDDO 

2 

2° SUB-TOTALS : '+ STR(T,9,2) + ' 
+ STR(S,9,2)+" ' + STR(F,9,2) 

? 

2° TOTAL BILLED TO DATE: ' 

STR(Sum, 9,2) 


i ie F if Finished,’ 
2? ' eturn> to continue.’ 
WAIT TO Again 
ENDIF okay to do the report 
ENDIF 
EXNDDO Again 


IF Unindexed > 50 
ERASE 


2! There are ' - STR(Unindexed,9) + ' unindexed records’ 


2 in the Costbase. To speed up the Job Costs procedure,’ 


2?! please reindex from the next menu.' 
2? '<Return> to continue.* 
WAIT 

ENDIF 


RELEASE All 
RETURN 
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seeeaneeenenoeseeee® JOBSINDX COMMAND FILE @#80eeenuee 


# Indexes the costbase on job numbers to B:Jobs.NDX. 

€ The method of indexing here allows us to use the index to help 
# find job numbers for the Job Costs comnand files, but allows us to 

# do so without having to index the Costbase every time we add a bill. 
. The strategy is: before we index the Costbase on job numbers, 

* we first store the number of the last record in a record with a job 

: number of zero. When the file is indexed, this record is at the top 


of the indexed file ($Jobs) so that we can find it whenever we want to 
SRHPPRFESERATTHEMRSRSEHSHTTFFAOSSSOSHOMTTTHGARRETAKEEDHESOSGSAEeeEHRODE 


USE B:Costbase 
GO BOTTOM 
STORE STR(#,5) TO Temp 
GO TOP : 
IF Job:Nmbr = 0 
REPLACE Name WITH Temp 
ELSE 
DO WHILE !(Code) <> 'H! 
? "Un, Oh--trouble. Don't touch anything" 
ACCEPT ‘and call Hal.' TO Code 
ENDDO 
ENDIF 


DELETE FILE B: $Jobs.NDX 

ERASE 

@ 5,0 SAY 'There are ' + Temp + ' records to index. 
SET TALK ON 

INDEX ON Job:Nmbr TO B:$Jobs 

SET TALK OFF 


RELEASE Temp 
RETURN 
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#08 FINDBILLS COMMAND FILE ##aeeeunnee 

* This procedure finds specific bills that we are looking for, then allows 
* us to edit them. 

be The bill can be specified by bill number and/or amount. If you decide 
: not to pay a bill that was found specifying more than one item, you will be 
s 


presented the rest of the entries for the supplier based on name onl: 
PRPTHDEHHVAROTRRERTATOATOIRAEEREREREeAeS 


SELECT PRIMARY 
USE B:CostBase INDEX B:$Supp 


STORE 'N' TO Finished 
DO WHILE !(Finished) <> 'F! 


* "Entering" controls a closed loop that allows the operator to change 
® the entry if he or she spots and error. 
STORE "C" TO Entering 
DO WHILE !(Entering) = 'C' 
ERASE 
@ 4,0 
ACCEPT ' NAME OF SUPPLIER ' TO MName 
ACCEPT ' INVOICE NUMBER ' TO MBill:Nmbr 
ACCEPT ' ENTER AMOUNT ' TO Temp 
STORE 1(MName) TO MName 
STORE !(MBill:Nmbr) TO MBi11:Nmbr 
STORE VAL(Temp) TO MAmount 
STORE MAmount#1.00 TO MAmount 
6,19 SAY MName 
7,19 SAY MBill:Nmbr 
8,19 SAY MAmount 
11, O SAY’ C to CHANGE,' 
- <Return> to continue.' 


YSBO®D 


#* OneByOne is used so that we look at the entire listing for a name once. 
® If we could have started in the middle of the list and the bill is not 
* the one we want, we go up to the first listing then go through all the 
entries for the name, one by one. Used in the last loop in this file. 
IF Bill:Nmbr > ' * .OR. Amount <> 0 

STORE 0 TO OneByOne 
ELSE 

STORE 1 TO OneByOne 
ENDIF 


WAIT TO Entering 
ENDDO Entering 


STORE T TO Looking 
11, 0 SAY "I'M LOOKING, I'M LOOKINGI!" 
12,0 
13,0 


Now look for a match on the first 10 characters of the name. This finds 
the first entry for that supplier, then looks for bill number or amount 
Af we specified them. If not specified, it skips through all the entries 
for the name. 


ee er 


IF LEN(MName) > 10 

STORE $(MName,1,10) TO Key 
ELSE 

STORE MName TO Key 
ENDIF 


FIND &Key 
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1 
F#@20 

2 

78 GRE, I CAN'T FIND THE NAME. Please oheok the spelling." a) 
ze Or maybe it hasn't been posted to the COSTBASE yet." 
? '<Return> to continue.' 


ELSE 
® Found at least one entry with a matching name. 
STORE T TO Looking 
IF MBill:Nmbr = ' ' .AND. MAmount = 0 
STORE F TO Looking 
ELSE 
® If we have more than the name, we first check for the bill number. 
IF MBill:Xabr > * ' 
DO WHILE Name=Key .AND. .NOT. EOF .AND. Looking 
IF Bill:Nmbr <> MBill:Nmbr 
SKIP 
ELSE 
STORE F TO Looking 
ENDIF 
ENDDO 


# If we're on a new name or the end of the file, Looking is TRUE 
# because we have not found the supplier we were looking for. 
® Otherwise, we have a matohing bill number to confirm. 
IF Looking 
7! This BILL NUMBER is not in the costbase.' 
2? 'CReturn> to continue.' 
WAIT Ce) 
ENDIF 
ELSE 


® If no bill number, look for the amount. 
DO WHILE Name=Key .AND. .NOT. EOF .AND. Looking 
IF Amount <> MAmount 
SKIP 
ELSE 
STORE F TO Looking 
ENDIF 
ENDDO 


® If we're on a new name or the end of the file, Looking is TRUE 

® Otherwise, we have an unpaid bill to confirm. 

IF Looking 
2 No bill for this amount and this supplier.‘ 
? '<Return> to continue.’ 
WAIT 

ENDIF 

ENDIF we have the bill number 
ENDIF we have only the name 
ENDIF there is an unpaid bill for the supplier 


STORE 'N' TO Changing 


DO WHILE !(Changing) <> 'Y' .AND. .NOT. Looking 
@ 12,0 
DISPLAY 
? CHR(7) 
24 E to EDIT this record,' 
2?! Q to QUIT this supplier,’ 
ACCEPT ' <Return> to continue.' TO Changing 


? 
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IF 1(Changing) = 'Q' 
STORE T TO Looking 
ELSE 
IF (Changing) = 'E’ 
STORE STR(#,5) TO Found 
EDIT &Number 
ERASE 
ELSE 
® If the first record is not the one we want, we skip through the 
® rest of the entries for the name. We first go on from where we 
® were in the listing (if we had more than the name), then go back 
# to the first entry and look at those we had skipped. If we had 
® only the name, OneByOne = 1 and we go through the list only once. 
SKIP 
IF EOF .OR. Name <> Key 
IF OneByOne = 0 
FIND &Key 
STORE 1 TO OneByOne 
ELSE 
@ 11, 0 SAY CHR(27) + CHR(74) 
2 "We've gone through all the entries for " + MName+'.' 
? '<Return> to continue.! 
STORE T TO Looking 
WAIT 
ENDIF 
ENDIF we've gone through the list 
ENDIF is it the right record 
ENDIF 


ENDDO Changing the record 
* F if FINISHED finding bills,’ 


& <Return> to continue.' 
? CAR(7) 
WAIT TO Finished 

ENDDO Finished 


Nog 


eereeeeneh REVIEW.CMD FILE "eeeeneese 


This is used to list entries in any .DBF file. 
Records may be listed conditionally, 


the command file calling the procedure. 
with or without the record numbers. 
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The database must be named in 


Processing can be continuous, or can stop after every group of 10. 
The listing can start on a specified record number. 
The files can be re-listed as many times as desired. 


: 
e 
CY] 
a Records are listed in groups of 10 with a line space between each group. 
LJ 
a 
. 
. 


Printing is optional. 


rinter. 
PTITTTITiT titi hd 


STORE '¥' TO Reviewing 

DO WHILE !<Reviewing)='"Y' 
COPY STRUCTURE EXTENDED TO Temp 
GO BOTTOM 
STORE STR(#,5) TO Last 


ERASE 


VVVVVQVN 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


DDSBBww 


1208 


1 TO First 

1 TO PageCnt 
VAL(Last) TO RecoCnt 
'N' TO Pause 
'N' TO Partial - 
'N! TO Conditions 
'N' TO Tally 
‘Ct TO Changing 
DO WHILE !(Changing) = 'C' 


8, 10 
9,10 
10,10 
11,10 
12,10 
13,10 
14,10 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


‘START ON RECORD NUMBER 
* STOP ON RECORD NUMBER 
' START PAGE NUMBERS ON 
"PAUSE EVERY 10 RECORDS 
' SHOW SELECTED FIELDS 
"DISPLAY FOR EXPRESSION 
: SHOW RECORD NUMBERS 


C to CHANGE the defaults,’ 
¥ <Return> to continue.' 
WALT TO Changing 


IF !(Changing) = 'C’ 
® Clear to end of screen on IBM 3101 
@ 15,0 SAY CHR(27)+CHR(74) 


ELSE 
IF First > VAL(Last) .OR. First <= 0 .OR. RecoCnt > VAL(Last); 
-OR. RecoCnt <= 0 
@ 15,0 SAY CHR(27)+CHR(74) 
@ 16,0 SAY ‘Sorry, wrong number: 
‘records 1 through'+Last+’.’ 
2? '<Return> to correct your entry.' 


WA 


It 


@ 15,0 SAY CHR(27)+CHR(74) 
STORE 'C’ TO Changing 
STORE 1 TO First 

STORE VAL(Last) TO RecoCnt 


ENDIF 


GET 
GET 
GET 
GET 
GET 
GET 
GET 


'The ‘at (Database)+' database has '-Last+' entries. 
‘in groups of 10 records, 50 records to a page if printed.’ 
‘Enter new values for defaults or press <Return>:' 


DISPLAY [Field list) [FOR <expression>] [OFF] 


First 
RecoCnt 
PageCnt 
Pause 
Partial 
Conditions 
Tally 


The "CHR(X)" commands are for a Diablo 1650 


They will be shown’ 


'~!(Database)+' contains '+; 


Oo 


Oo 
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ENDIF 
# Clears to end of screen on IBM 3101 
@ 15,0 SAY CHR(27)+CHR(74) 
ENDDO 
a 
? 
2 
? 
? 
z 
? 
a 
? 
? 
2? 
? 
? 
2? 
IF !(Partial)= 'Y* 


@ 11,0 SAY CHR(27)+CHR(74H) 

6 11,0 SAY 'The '+!(Database)+! database consists of these FIELDS:' 
USE Temp 

? 


STORE ' ' TO Choices 
DO WHILE .NOT. EOF 
STORE Choices+TRIM(Field:Name)+'’, ' TO Choices 
SKIP 
ENDDO 
STORE $(Choices,2,LEN(Choices)-3) TO Choices 
STORE 'Y' TO Unfinished 
DO WHILE !(Unfinished) = 'Y! 
@ 13, 0 SAY Choices 
USE B:&Database 
? 
? "List FIELDS to display (<return> to show all).' 
2 


ACCEPT ' DISPLAY ' TO Partial 
STORE !(Partial) TO Partial 

STORE Partial TO String 

STORE LEN(String) TO Size 


IF Size =0 .OR. (Size=1 .AND. Partial=' ') 
STORE CHR(0) TO Partial 
STORE 'N' TO Unfinished 
ELSE 
2 
? "Want to change it (Y or N)?! 
WAIT.TO Unfinished 
IF |(Unfinished) = 'Y' 
@ 12, 0 SAY CHR(27) + CHR(74) 
ELSE 
@ 10,0 SAY CHR(27) + CHR(74) 
2? '®## Checking fields ['+Partial+'] : ' 
? 
STORE 0 TO F 


STORE 0 TO Counter 
DO WHILE Size >0 
STORE Counter + 1 to Counter 


2? * #*4STR(Counter ,2) 
STORE @(*,', String’ TO Mark 
IF Mark = 1 .OR. Mark = Size 
? "Uh, oh--trouble: comma cannot be at the '; 
+'start or end of a list of values.' 
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2? '<Return> and try again.' 
STORE 0 TO Size 


STORE '¥' TO Unfinished 


WAIT 
ELSE 
IF Mark > 0 


STORE (Mark - 1) TO Size 


ENDIF 


STORE T TO Blank 


STORE 1 TO Start 


DO WHILE Blank .AND. (.NOT. Start > Size) 


IF (String, 


Start, 1)=' ' 


STORE (Start + 1) TO Start 


ELSE 


STORE (.NOT. Blank) TO Blank 


ENDIF 
ENDDO 


IF Start > Size 


? 'How on earth can I find a blank field?! 
? '<Return> and try again.' 


STORE 0 TO Size 
STORE 'Y¥' TO Unfinished 


WAIT 
ELSE 


STORE (F + 1) TOF 


IF F< 10 


STORE STR(F,1) TO Suffix 
LSE 
STORE STR(F,2) TO Suffix 


ENDIF 


STORE 'FIELD'+Suffix TO Field 


STORE TRIM($(String,Start, (Size-Start+1) )) TO &Field 


IF Mark > 0 


STORE TRIM($(String, (Size + 2))) TO String 


STORE LEN(String) TO Size 


ELSE 
STORE 'N' 


TO Unfinished 


STORE 0 TO Size 


ENDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
ENDIF 
ENDDO 


IF LEN(Partial) > 0 
DO headings 


? "WE'D DO THE HEADINGS HERE." 


WAIT 
ENDIF 


ELSE 
STORE CHR(0) TO Partial 
ENDIF 


IP !(Conditions) = 'Y* 
STORE 'Y¥' TO Unfinished 
DO WHILE (Unfinished) = 'Y' 
@ 11, © SAY CHR(27)+CHR(745) 


@ 11, 0 SAY "Specify the EXPRESSION or <Return> to skip.’ 


oO 


Oo 
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2? 
? "DISPLAY &Partial FOR ' 
ACCEPT TO Expression 
2 
2? "Do you want to change the expression (Y¥ or N)?? 
WAIT TO Unfinished 
ENDDO 


IF Expression > ' 
STORE "FOR '+ Expression TO Conditions 
ELSE 
STORE CHR(0) TO Conditions 
ENDIF 
ELSE 
STORE CHR(0) TO Conditions 
ENDIF 


IFt(Tally) <> 'Y! 

STORE ‘OFF’ TO Tally 
ELSE 

STORE CHR(0) TO Tally 
ENDIF 


STORE (DISPLAY Next 1 &Partial &Conditions &Tally) TO Command 


@ 11, 0 SAY CHR(27)+CHR(74) 

@ 11, O SAY "88 's4(DISPLAY &Partial &Conditions &Tallyj+' #se' 

2 

2 "ia the command that will be performed on the 's!(Database)+' database.’ 
gt C to CHANGE it,' 

Rs Q to QUIT with no action,' 

2 


‘ <Return> to review the database.' 
WAIT TO Abort 


IF !(Abort) = 'Q' 
STORE CHR(0) TO Reviewing 
ELSE 
IF I (Abort) <> 'C" 
ERASE 
? ‘Enter a one-line heading or press <Return> to skip.' 
ACCEPT TO Message 
STORE 1(Message) TO Message 
STORE 0 TO Count 
STORE 0 TO PageMark 
STORE STR(First,5) TO Number 
GO &Number 


ERASE 
2 'Do you want to print the listing now (¥ or N)?! 
ACCEPT TO Hardcopy 


IF !(Hardcopy)='¥' 
SET PRINT ON 
DO RevMrgn 

ENDIF 


ERASE 
? Message 
? ‘Page '+ STR(PageCnt,3) 


IF Tally = ‘OFF’ 
2? ' starts on Record #'-STR(#,5) 
? 
IF .NOT.( Partial > ' ' .OR. Conditions > ' ') 
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DO RevHdr 
ENDIF 
ENDIF 
? 


DO WHILE .NOT. EOF .AND. # <= RecoCnt 
& Command 


IF t (Conditions) > CHR(0) 
IF &Expression 
STORE (Count + 1) TO Count 
ENDIF 
ELSE 
STORE (Count + 1) TO Count 
» BNDIF 
SKIP 


IF Count=10 


STORE 0 TO Count 
® Inserts a space every ten records, then waits. The printer 


® 4s turned off so that "WAIT" does not print on the hardcopy. 


? 

SET PRINT OFF 

IF 1(Pause) = 'Y' 
WAIT 

ENDIF 


IF !(Hardeopy) = 'Y' 
SET PRINT ON 
ENDIF 


® The following routine prints 50 entries to @ page, 
# then moves to the next page and prints a heading 


STORE (PageMark + 1) TO PageMark 
IF PageMark = 5 

? CHR(12) 

STORE (PageCnt + 1) TO PageCnt 


IF penieageoatey) = PageCnt/7 
ENDIF 


7 Message 
? "Page '+STR(PageCnt, 3) 


IF Tally = ‘OFF’ 
2? ' starts on Record #'-STR(#,5) 


? 
IF .NOT.( Partial > ' ' .OR. Conditions > ' ') 
DO RevHdr 
ENDIF 
ENDIF 
? 
STORE 0 TO PageMark 
ENDIF 
ENDIF 
ENDDO 
* Formfeed on Diablo 1650 printer 
7 CHR(12) 
SET PRINT OFF 
SET RAW ON 


SET MARGIN TO 38 
2 "Do you want to see the '+!(Database)+' again (Y or N)?! 


* 


WAIT TO Reviewing 
ELSE 
STORE 'Y¥' TO Reviewing 
ENDIF 
ENDIF 
? 
EXDDO Reviewing 
USE 
DELETE FILE Temp 


RELEASE All 
RETURN 
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SUSe88GT99R0REH008 REVHDR COMMAND FILE @##eeecenseecesoaacesoae 


© Used Review.QD to print headings for difforent database listings. 
PTI ee 


COTTE TPL 
IF !(Database)2'INSERTS' a) 


? 'I0@ MAGAZINE ISSUE JOB AD SPACE "e3 
* gross NET X DATE’ 


IF 1(Database)2'BILLINGS' 
a 'INV@ JOB DATE TAXABLE TAX NO:TAX PO¢ DESCRIPTION' 
ELSE 
IF {(Database)s="INVOILCES' 
? ‘INV@ CLT DATE TAXABLE TAX NO:TAX "+3 
‘TOTAL AMT:RCD DATE! 
ELSE 


IF !(Database)='COSTBASE' 
2 "DATE CHECK JOB AMOUNT NAME "a3 
ae * DESCRIPTION DATE BILL# HOURS EMP! 


IF !(Database)='DEPOSITS' 
? "DATE RECEIVED FROM CHECK AMOUNT ‘+3 
‘INV@ COMMENTS! 
EXDIF 
ENDIF 
ENDIF 
ENDIF 
EXDIF 
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PRRTERORTESTRERAEES REVMRGN COMMAND FILE FSR SOS SS OSES EERE R ER EEE 


* Used by Review.CMD to set margins for different database listings. 
Lid h hit ete TPE ELIT OTL ili ci lrriis it ririviit it itttetili tity) 


IF !(Database)="INSERTS! 
SET MARGIN TO 38 
ELSE 
IF !(Database)='COSTBASE' 
SET MARGIN TO 36 
ELSE 
SET MARGIN TO 45 
ENDIF 
ENDIF 
RETURN 
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SEGRERSERESEERRRE® SALES TAX COMMAND FILE SCCERETEREEHEEASRARe 

® This file summarizes the invoice file for a specified period. 

J It shows the invoices and the type of billing (taxable or 

® service) along with the totals for the two types and the total 

® sales tax liability for the period, 

° It also includes materials and equipment subject to a use tax 

® that has not been paid. These are entered in the invoices database 

a 
. 


ni 
ean 


they some in as well as in the Postfile. 
SRUMEATERELRACERAOHESHAHEHETHSERGCH TR ECTIGRET RUSCH HORRORS 


USE B: Invoices 

ERASE 

? 'This file summarizes the data you need to prepare the End-of-Quarter' 
? ‘report to the State Board of Equalization for SALES TAX collected by! 
2 ‘the agetcy. It includes use tax on materials bought out of state or’ 
? "bought with our resale number without paying a use tax.' 


STORE 'C' TO Dating 

DO WHILE I(Dating) = 'C' 
STORE 'YYMMDD’ TO Start 
STORE 'YYMMDD' TO Finish 
@ 7, O SAY 'This summary is for the period FROM ' GET Start 
@ 7,45 SAY ' TO ' GET Finish 
READ 
@9,0 SAY' ' 
2? C to CHANGE,’ 
? '<Return> to continue.’ 
WAIT TO Dating 


@ 7,0 
2? CHR(27) + CHR(74) 
ENDDO Dating 


ERASE 

@ 5,10 SAY '#0seeHBHROY DO NOT INTERRUPT #eennenenens 

@ 7,10 SAY ‘COMPUTING THE QUARTERLY SALES TAX REPORT‘ 

2 

COPY TO Temp FIELDS Inv:Nmbr, Inv:Date,Taxable,Sales:Tax,TaxFree , Amount; 
FOR Inv:Date >= Start .AND. Inv:Date <= Finish 

USE Temp 

SORT ON Inv:Nmbr TO Temp2 

USE Temp2 

REPLACE Invinmbr WITH ' USED' FOR VAL(Inv:Nmbr) < 1000 


STORE $(Start,3,2)+'/'+$(Start,5,2)+'/'+$(Start,1,2) TO Start 
STORE $(Finish,3,2)+'/'+$(Finish,5,2)+'/'+$(Finish,1,2) TO Finish 


@ 5,0 
SET MARGIN TO 45 - 
SET PRINT ON 
STORE 1 TO PageCnt 
2? "SALES TAX SUMMARY FROM '+Start+s' TO '+Finish+': Page '+STR(PageCnt,3) 
? 
? ‘INVE DATE TAXABLE TAX SERVICE TOTAL' 
? 
STORE 0 TO Count 
STORE 0 TO PageMark 
GO TOP 
DO WHILE .NOT. EOF 
DISPLAY Inv:Nmbr,Inv:Date,Taxable,Sales:Tax,TaxFree,' '+STR(Amount,9,2) OFF 
STORE (Count + 5 TO Count 
SKIP 
IF Count=10 
STORE 0 TO Count 
® Inserts a space every ten records, then waits. The printer 
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* is turned off so that "WAIT" does not print on the hardcopy. 
2 


* The following routine prints 50 entries to a page, 
® then moves to the next page and prints a heading 


STORE (PageMark + 1) TO PageMark 
IF PageMark = 5 

STORE 0 TO PageMark 

? CHR(12) 

STORE (PageCnt + 1) TO PageCnt 


* Compensates for an offset caused by the 7 lines/inch printing 
IF INT(PageCnt/7) = PageCnt/7 
2 


ENDIF 
? ‘SALES TAX SUMMARY FROM ' + Start + ' TO ' + Finishe': Page * 4} 
STR(PageCnt ,3) 
2? 
2? ‘INV# DATE TAXABLE TAX SERVICE TOTAL! 
i 
ENDIF 
ENDIF 
ENDDO 
2 
SET PRINT OFF 
2 
es COMPUTING TOTALS NOW.! 


2 

REPLACE All Inv:Nmbr WITH ' ' FOR VAL(Inv:Nmbr) > 1000 
TOTAL ON Inv:Nmbr TO Other 

USE Other 

REPLACE All Inv:Date WITH 'TOTALt 

REPLACE All Inv:Nmbr WITH ‘SALES FOR Inv:Nmbr = ' ’ 
SUM Taxable TO Used FOR Inv:Nmbr = ' USED! 

SUM Amount TO Sold 

STORE Sold + Used TO Gross 

SUM Sales:Tax TO Collected 

SUM TaxFree TO Service 

STORE Collected + Service TO Exempt 

STORE Gross - Exempt TO Subject 

STORE 0.06*Subject + 0.005 TO Payable 


* Print totals of all the invoices 
GO TOP 
SET PRINT ON 
DO WHILE .NOT. EOF 
DISPLAY Inv:Nmbr,Inv:Date,Taxable,Sales:Tax,TaxFree,' '+STR( Amount ,9,2) OFF 
STORE Count + 1 TO Count 
SKIP 
ENDDO 
IF PageMark > 3 
* Formfeed if not enough room to print the following list 
2? CHR(12) 
DIF 


‘ENTER THE FOLLOWING DATA ON THE BOARD OF EQUALIZATION FORM: ! 


The following segment is not the final, but the state auditor is in right now 
and I've got to get the info out to him and to the state for this month. 

The final version will include all lines in the form, to allow for changes 

in the way we do our business. Obviously, this is also the place to 

print the form if you want to do that. Since the form is used only once 


See et arvv oy 9 


mer LINE 1> 
Ae LINE 2> 
zz? LINE 3> 
? 

zs LINE 9> 
ans LINE 10> 
‘oan LINE 11> 
ames LINE 12> 
tS LINE 13> 
as LINE 14> 
? 

2 LINE 19> 
? 

7” LINE 21> 
? 

2° LINE 28> 
2? CHR(12) 


SET MARGIN TO 38 
SET PRINT OFF 


RELEASE All 

USE 

DELETE FILE Temp 
DELETE FILE Temp2 
DELETE FILE Other 
RETURN 


TOTAL GROSS SALES: 
SUBJECT TO USE TAX: 
TOTAL TRANSACTIONS: 


SALES TAX INCLUDED: 
ADVERTISING SERVICES: 
TOTAL EXEMPTIONS: 
SUBJECT TO STATE TAX: 
AMOUNT OF STATE TAX: 
SUBJECT TO LOCAL TAX: 


AMOUNT OF LOCAL TAX: 
TOTAL TAXES: 
TOTAL DUE AND PAYABLE: 


e+ ee et 


GBASE IL...192 


every three months, we won't automate it entirely. 


STR(Sold,9,2) 
STR(Used,9,2) 
STR(Gross,9,2) 


STR(Collected,9,2) 
STR(Service,9,2$ 
STR(Exempt ,9,2) 
STR(Subject,9,2) 
STR(0.05#Sub ject+0.005,9,2) 
STR(Subject ,9,2) 


STR(0.01#Sub ject+0.005,9,2) 
STR(Payable,9,2) 
STR(Payable,9,2) 
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esageageacn TIMECALC COMMAND FILE sesagseaae 
* Verifies that employee name and number match, then 


* calculates billi charges for employee time 
#essdeezevaa aeggeagad 


SET TALK OFF 

ERASE 

SELECT PRIMARY 

RESTORE FROM B:Constant 


GO TOP 

DO WHILE .NOT. EOF 
ERASE ‘ 
@ 4,20 Say ' #@ DO NOT INTERRUPT ## : 
@ 5,20 SAY ' PROCESSING TIME CHARGES u 


IF ® .OR. Job:Nmbr = 31 .OR. Check:Nmbr <> '--~" 
SKIP 

ELSE 
REPLACE Client WITH 1(Client),Name WITH ! (Name) 
STORE STR(#,4) TO Number 


@ 7,20 SAY ' Record # '+Number 

@ 8,20 say ' *+Name 

? CHR(7) 

IF Enp:Nmbr<-0 .OR. Emp:Nobr>MaxEmpl .OR. Hours = 0 
ERASE 


REPLACE Hours WITH Hours®1.00 
REPLACE Emp:Nmbr WITH Emp:Nmodr®#1 
@4,osay'' 
DISPLAY 
@ 6,3 SAY 'HOURS=' 
@ 6,18 SAY 'sEMPLOYEE NUMBER" 
°° 
? ‘Press ANY KEY to correct the EMPLOYEE NUMBER,' 
? ‘or press H to correct the HOURS.' 
WAIT TO Decision 
IF !(Decision) <> 'H* 

@ 6,34 GET Emp:Nmbr 


ELSE 
@ 6,8 GET Hours 


ELSE 
SELECT SECONDARY 
USE B:Personne 
STORE T TO Looking 
DO WHILE Looking .AND. .NOT. EOF 
IF $(Name,1,10)=$(P.Name, 1,10) 
IF Emp:Nabr=P.Emp:Nmbr 
SELECT PRIMARY 
* Formula optimistically assumes 65 billable hours out 
* of 75 hours possible in two weeks. Eff. mult.=3.23 
REPLACE Amount WITH Pay:Rate*2.8*Hours/65 
SELECT SECONDARY 
STORE F TO Looking 
ELSE 
SELECT PRIMARY 
STORE T TO Fixing 
DO WHILE Fixing 
ERASE 
@4,0 Say' + 
DISPLAY 
. 6,16 SAY '=EMPLOYEE NUMBER’ 
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2? 'The correct Employee Number is' 
2? 3.Emp:Nmbr 


27. ' for '+3.Namo 
7 'Press ANY KEY to ohange the EMPLOYEE NUMBER' 
? 'press N to change the NAME.' 


WAIT TO Choice 
IF t(Choice) <> 'N' 
@ 6,12 GET ExprNmbr 
READ 
STORE F TO Fixing 
ELSE 
@ 5,25 GET Name 
REPLACE Name WITH ! (Name) 
READ 
STORE F TO Fixing 
ENDIF Employee number 
ERASE 
ENDDO Fixing 
SELECT SECONDARY 
Go TOP 
ENDIF Numbers match 


SELECT PRIMARY 
@ 4,0 say' 


DISPLAY 
6,16 SAY ‘=EMPLOYEE NUMBER’ a) 


'This name is not listed in the Personnel file,' 
‘so time charges were not calculated.' 
‘'Press any key to change the name, or write the' 
trecord number down and press D to DELETE.' 
WAIT TO Change 
IF t(Change)<> 'D' 
@ 5,25 GET Name 
REPLACE Name WITH I (Name) 
READ 
SKIP-1 
ELSE 
ERASE 
DELETE 
DISPLAY 
? 
? 'THIS RECORD HAS BEEN DELETED.' 
WAIT 
ENDIF Change 
SELECT SECONDARY 
ENDIF no name 
ENDDO Looking 
SELECT PRIMARY 
SKIP 
ENDIF 


ENDIF deleted 
ENDDO billing calculations oO 


RELEASE All 
RETURN 


YVVIVVE 
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euageneeeee® = PRINTOUT COMMAND FILE #888 Ly 

This file is is used by several other command files. It prints out a 
listing of the records in a file without the record number. The 
outut is spaced every 10 records and the printer is positioned back 
at the left margin after the printout. 

The calling command file determines where the printout starts by 
specifying a value for the variable "Number". 

This does not show the record numbers. To do so, use the 


Review.Qnd file. 
POPPE rrrrrviri yy 


IF VAL(Number) > 0 
GOTO RECORD &Number 
ELSE 
Go TOP 
ENDIF 


STORE 0 TO Count 
DO WHILE .NOT. EOF 


IF # 
SKIP 
ELSE 
DISPLAY &Condition 
SKIP 
STORE Count+1 TO Count 
IF Count=10 
STORE 0 TO Count 
® Spaces one line every 10 records, then waits. Turns the printer 
" off so that "WAIT" does not print. 
2 
SET PRINT OFF 
WAIT 
IF t(Output)= 'Y! 
SET PRINT ON 
ENDIF 
ENDIF 
ENDIF 
ENDDO 


" The next 2 lines reposition the printer at the 
* left margin. 
? 


SET PRINT OFF 


RELEASE Count, Output 
RETURN 


BASE II...196 


@ensueeee® QPETDATE COMMAND FILE ##eanceene 
® Confirms that the date is entered as YYMMDD by checking to see that 
* the entries for each item are in the correct range. The year is 
® checked against a constant stored in the B:Constant.MEM file. 
PTRPOKSRANNAFGERVRTAGITCOOREDORIIAHANATOROOONDDOONAHCOOOROORRGOEeEAAE 


STORE *"T* TO NoDate 
DO WHILE I(HoDate) <> 'F! 
ERASE 
STORE ‘'YYMMDD' TO Date 
@ 5,10 SAY "Enter TODAY'S date" GET Date 
? CHR(7) 
READ 


IF VAL($(Date,1,2)) <> ThisYear; 
-OR. VAL($(Date,3,2)) < 1 .OR. VAL($(Date,3,2)) > 1 
-OR. VAL($(Date,5,2)) < 1 .OR. VAL($(Date,5,2)) > 3 
@ 10,25 SAY 'DATE ERROR’ 
STORE 0 TO X 
DO WHILE X < 50 
STORE X + 1 TOX 
ENDDO 
ELSE 


? 

@ 10,0 SAY '  C to CHANGE the date,' 
2? '<Return> to continue.’ 

WAIT TO Change 

IF !(Change) <> 'Ct 


STORE 'F' TO NoDate 
ENDIF 
ENDIF 
ENDDO NoDate 


RELEASE NoDate, Change, X 
RETURN 
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SORESEEORE DATETEST COMMAND FILE #8 #000en00 
"© This file verifies the Bill:Date and Check:Date to see that they are 


* in the right format. If incorrect, the operator may edit them. 
SURES SSESERERESLERARHERHAHARETERHERERRRRETHE DOH RER ER 


ERASE 
GO TOP 


* The variable DATE brings in the NAME of the date field to be checked 
* from the command files where this is used. 
DO WHILE .NOT. EOF 

@ 6,30 SAY ' VERIFYING '+Date+' ' 


IF # 
SKIP 
ELSE 
IF &Date <> '  ' 
STORE STR(#,5) TO Found 
STORE T TO NoDate 
DO WHILE NoDate 
@ 8,30 SAY ' RECORD '+Found 
é ae ' '4$(&Date,1,2)+'/'+$(&Date, 3,2)+'/'4+$(&Date,5,2) 
2 CHR(T 
# The macro symbol is used to get the contents of the date field 
* bei checked without creating a new variable. 
IF VAL($(&Date,1,2)) > ThisYear .OR. VAL($(&Date,1,2)) < MinYear; 
-OR. VAL($(&Date,3,2)) < 1 .OR. VAL($(&Date,3,2)) > 12; 
-OR. VAL($(&Date,5,2)) < 1 .OR. VAL($(&Date,5,2)) > 31 
Kf 
? 
es DATE ERROR: Must be YYMMDD ' 
ACCEPT ‘Enter new Date' TO Temp 
REPLACE &Date WITH Temp 
ERASE 
ELSE 
STORE F TO NoDate 
SKIP 
ENDIF 
ENDDO NoDate 
RELEASE Temp, NoDate 
ELSE 
SKIP 
ENDIF date is not blank 


* Delay to allow date being checked to be read (quickly) 
STORE 0 TO X 
DO WHILE X < 5 
STORE (X + 1) TO X 
ENDDO 


ENDIF deleted or posted 
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URRERHERER NAMETEST COMMAND FILE etensotage 
* Checks names in the file in USE against the Suppliers file and gives 
® the operator the options of editing, adding them to the Suppliers file 
# or ignoring them. If a name is edited, it is presented again. 
RERRARTERSRARAEEERSERHMERTAAHAPERERHECHHAARERAOHAAGCAEHSATE CHOPS EERRAE ES 
GO TOP 
DO WHILE .NOT. EOF 
LF 
SKIP 
ELSE 

STORE STR(#,5) TO Number 

STORE I(Name) TO Name 

ERASE 

@ 4,25 SAY "CHECKING NAMES ' 

@ 6,25 SAY "RECORD '+Number 

@ 7,25 SAY Name 

2 CHR(7) 

STORE $(Name,1,10) to Key 

SELECT SECONDARY 

USE B:Supplier INDEX B:Supplier 

FIND &Key 

STORE T TO Again 

STORE 'T' TO Decision 

IF #=0 

DO WHILE Again 
@ 9,20 SAY 'THIS SUPPLIER NAME IS NOT IN THE SUPPLIERS FILE. ° 
' ' 


@ 11,20 SAY E to EDIT it. 

@ 12,20 SAY ' A to ADD it to the SUPPLIERS file. 

@ 13,20 SAY ' C to CONTINUE. u 
2 


WAIT TO Decision 
IF !(Decision) = 'A' 
APPEND 
SKIP~1 
baer a WITH !(Name),Address WITH !(Address),City WITH; 
1(City 
STORE F TO Again 
ELSE 
IF 1(Decision) = 'E* 
SELECT PRIMARY 
EDIT &Number 
REPLACE Name WITH 1! (Name) 
SELECT SECONDARY 
STORE F TO Again 
ELSE 
IF 1!(Decision) = 'C* 
STORE F TO Again 
ELSE 
STORE T TO Again 
ENDIF C 
ENDIF E 
ENDIF A 
ENDDO 
ENDIF 0 
SELECT PRIMARY 


IF !(Decision) <> 'E? 
SKIP 
ENDIF 
ENDIF deleted 


ENDDO 
RELEASE All 
RETURN 
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seuaeen ence CHECKSTUB COMMAND FILE PHROSETCITEe 
® Prints out check numbers, amounts, and balances from the CheckFile when 
® SALARIES and BILLS are paid. When more than one bill is paid by a 
® single check, the program totals all the bills against that check if they 
® are entered in consecutive order (which they are in the two command files). 


® Records are marked for deletion, but can be reviewed and retrieved. 
SSHESASIATFGHSEGHISHGOTHHEATASFEGHTGGASHRERHCHHECHSHGATERTERDAAHRAGHRRHHAHES 


ERASE 
@ 5,10 SAY '#@% DO NOT INTERRUPT @##' 


@ 6,10 SAY * JUST GETTLG ORGANIZED’ 


USE B:Checkfil 
TOTAL ON Check:Nmbr TO Scratch FOR .NOT. ® 
COUNT FOR .NOT. * TO Entries 


USE Seratch 
UPDATE FROM B:Checkfil ON Check:Nmbr REPLACE Balance 


COUNT FOR .NOT. * TO Checks 


IF Entries > Checks 
USE B:Checkfil 
ERASE 
@ 4,0 say'' 
SET PRINT ON 


wes THESE INDIVIDUAL BILLS WERE PAID:' 
2 
2% Date Check Name Amount #' 
2? 
LIST ' 's+Check:Date, Check:Nmbr, Name, Amount, BillsNmbr OFF; 
FOR .NOT.* 
? 
@ 
? 
ENDIF 
USE Scratch 


STORE '¥' TO Doing 
DO WHILE !(Doing)='¥' 
ERASE 


SET PRINT ON 
Tt MAKE THE FOLLOWING ENTRIES IN THE CHECK BOOK:' 


2° “ Date Check Name Amount Balance! 
LIST ' '+#Check:Date, Check:Nmbr, Name, Amount, Balance OFF 


SET PRINT OFF 
? 'De you want to print it again (Y or N)?" 
WAIT TO Doing 

ENDDO 


SET PRINT ON ° 
2 CHR(12) 
SET PRINT OFF 


USE Bz: CheckFil 
DELETE All 


DELETE FILE Scratch 
RELEASE Doing, Checks, Entries 
RETURN 
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1.0 USING dBASE 


To execute the dBASE program, place the dBASE distribution 
diskette (or preferably, a copy of that diskette) into any 
available disk drive. Set that drive to be the default drive 
(e.g. if the disk is placed into the "B" drive, type in "B:" 
followed by a carriage return) and tnen type in the following 
line: 


DBASE 


The program will then be loaded into memory, and will start 
execution with a date request: 


ENTER DATE AS MM/DD/YY OK RETURN FOR NONE: 


This date will be posted'on any database that is altered during 
the following run and will also be printed in REPORT headings for 
any report generated in that run. The date is checked for 
calendar accuracy. WARNING: The calendar check is not valid for 
February 29 in the years 1900 and 2100. A slash or any special 
eharacter (except a period) may be used to delimit the numbers 


Examples of valid dates: 


1,1,61 
0z 02 82 
3/17/83 


Then the sign-on message is displayed: 


#8®# BASE II VER 2.xxx### 


The period on the second line is the dBASE prompt, indicating 
that dBASE is ready to accept commands. Commands to dBASE are 
generally imperative sentences: a verb possibly foliowed by 
phrases that give further direction about the action to be taken. 
GBASE scans each line completely before executing any part of it. 
If dBASE detects an error in the command then the user is 
notified via error messages on the console. Generaiiy, the user 
may correct the erroneous command and re-issue rather than re- 
enter the entire command. When dBASE detects an error that it 
can't deseribe explicitly, it assumes that the error is a syntax 
error and displays the erroneous line with a question mark at the 
beginning of the phrase that caused the confusion. 


Error recovery examples: 


- DISPRAY MEMORY 

*** UNKNOWN COMMAND 
DISPRAY MEMORY 
CORRECT AND RETRY? Y¥ 
CHANGE FROM :PR 
CHANGE TO :PL 
DISPLAY MEMORY 

MORE CORRECTIONS? (cr) 


« STORE (2+2 TO X 
#%% SYNTAX ERROR *** 
? 
STORE (2+2 TO X 
CORRECT AND RETRY? ¥ 
CHANGE FROM :+2 
CHANGE TO 242) 
STORE (2+2) TO X 
MORE CORRECTIONS? W 
4 


» SUM TO X 

NO EXPRESSION TO SUM 
SUM TO X 

CORRECT AND RETRY? WN 


erroneous command echoed 
Yes, correct 

change the letters PR 

to PL 

after the change 


return = no more changes 


the string (2+2 is indicated 


N(o) more changes 
the result 


explanation 


no change, abort this command 


The program can also be executed in the following manner: 


DBASE <filename> 


This will load dBASE into memory, 
<filename>, and begin immediate execution of that command file. 
This form is especially useful when using dBASE in a SUBMIT file 
or when using the chaining option of the dBASE QUIT command. 


CONTROL CHARACTERS 


entl-P - Toggles print switch (see also SET PRINT command) 
entl-U - Deletes current line 

ent1-x - Deletes current line (except in full screen edit 
<-- - Deletes last character entered 

cntl-H (or backspace) - Deletes the last character entered 


access a command file 


©O 


© 


* 


Esc 


~ Escapes from certain possibly long-running commands. 


Ie. DISPLAY, COUNT, DELETE, INPUT, LIST, LOCATE, 
RECALL, REPLACE, SKIP, and SUM. Also ESC serves as an 
escape from ACCEPT, INPUT, REPORT (dialogue), and 
WAIT. In all cases, ESC returns control to the 
interactive monitor and displays a dot prompt. 


When in a command file execution, dBASE checks for an 
ESC character before starting every command line. 


NOTE: This escape capability can be disabled by the 
SET ESCAPE OFF command. 


(This page intentionally left blank) 


3-0 GBASE FILES 


Basically, a file is a collection of information residing on a 
mass storage device that contains the user's data. The 
information can be stored to or retrieved from the file. Files 
can be grouped into six types, each one either concerned with a 
particuiar operation of or created by dBASE. 


All dBASE files are standard CP/M files with a name field of 
eight characters and a file type of three characters. Listed 
below are the default fiie types used by dBASE. For cach command 
that accesses a file, the type field may be left off and dBASE 
will assume the default type for that oommand. For instanoe, if a 
database file already has DBF as its type, then it need not be 
specified in any of the file manipulation commands. 


DATABASE FILES - -DBF 
MEMORY FILES ~ MEM 
COMMAND FILES - .CMD 
REPORT FORH FILES ~ .FRM 
TEXT OUTPUT FILES - .TXT 
INDEX FILES - «HDX 
FORMAT FILES ~ FMT 


Any legitimate CP/M filename may be used to refer to dBASE files. 
Remember, if, during an access of any file, the type is not 
Supplied by the user, dBASE wiil assume the above file types. 
For further information regarding the use of filenames and types 
refer to the Digital Research publication "CP/M User's Guide™. 


3.1 DATABASE FILES (DEF) 


Databases are what dBASE is ail about. dbASE's database files 
consist of a structure record and zero to 65535 data records. The 
structure record is essentialiy a map of the data record format. 
The structure can contain up to thirty-two different entries. 
Each entry in the structure refers to a field of data in the data 
records. The structure holds the following data: 


Tne name of the data fields 

The type of data within data fields 
The’ size of the data fields 

The position of the data within records 


DATA FILLD NAME - The name may be up to 10 characters long. In 
all operations during a dbASE run the data fieids wail be 
referenced by this name. Field names are aiphanumeric (plus 
colons) by nature. However, fieids must begin with a .etter and, 
colons must be embedded in the name. Some exampies follow. 


Examples of data field names: 


A 
4123456789 
ABC :DEF 


AsBrCiDiE 
ABCD: invaiid, colon not embedded 


ABC, DEF invalid, comma is illegal 


DATA TYPE - dBASE allows three types of data to be used to 
specify the contentea of the data fields. They are: oharacter 
strings ('ABCD'), numerio quantities (2 or 513), and logicais 
(true/false). 


FIELD S1ZE - This is the number of character positions (width) 
needed to contain the data that will be placed into this field. 
Character string fields and numeric fields may be from 1 to 254 
positions in length. The count for a numeric field should include 
the decimal point. Logicai fields are aiways one position in 
length. Also, for numeric fields, the number of positions to the 
right of the decimal point may also be contained in the 
structure. 


Once the structure has been defined, the user oan enter data 
values into the fields for as many records as are desired. 
Usually, there is only one struotured data file available to the 
user at any given time (this is referred to as the USE file or 
the file in USE). There is however, a way to use two databases at 
one time. See the commands SELECT and JOIN. 


3.2 MEMORY FILES (MEM) 


Memory files are statio files of memory which are divided into 
variables similar to record variables. These variables are known 
as memory variables and are limited to 64 in number. 


The values of memory variables are independent of the database in 
use. That is, the record position of the file in USE has no 
bearing on the variables in the memory file. Memory variables are 
used to contain constants, results of computations, and symboiic 
substitution strings (see Section 5), etc. The rules of naming, 
typing, and sizing of memory variables are identical to those of 
the field variables desoribed above. 


The SAVE command will write all current memory variables toa 
memory file; and the RESTORE command will read a saved memory 
file back into the memory variables. 


3.3 COMMAND FILES (.CHD) 


A command file contains a sequence of dBASE command statements. 
This provides the user with a method of saving a set of 
frequently used command sequences which then allows one to more 
easily manipulate database files. 


Command files may be created and modified by text editors and/or 
word processors, although dBASE now has the capability to 
create/edit command files itseif with the MODIFY COMMAND. Command 
files are started by the DO command. Command files may contain 
any dBASE commands, however, one shouid be careful since some of 
the commands (CREATE, INSSRT, APPEND (from the keyboard)) require 
user inputs beyond the command file contents. 


Command files may be nested, i.e. command files may contain bO 
commands which are then executed. Again, care should be 
exercised in that, dBASE allows, at most, 16 files to be open at 
any given time. Therefore, if there is a file in USE, onay 15 
command files may be nested. Certain commands also use work files 
(e.g. SORT uses 2 additional files; REPOR1, INSERT, COPY, SAVE, 
RESTORE, and PACK use one additional file). For instance, if a 
SORT command is issued from the lowest command file ina nest, 
then only 13 levels of command file could be used (i.e. the USE 
file, 2 SORT work files and 13 command files = 10). Whenever a 
command file issues the RETURN command or whenever the end-of- 
file is encountered on a command file, the command file is closed 
and its resources are available for other commands. 


The REPORT command either generates a form file or uses an 
existing form file. The form file contains instructions to the 
report generator on titles, headings, totaling, and column 
contents. Form files are constructed by dBASE as part of the 
REPORT dialog. They can be modified by text editors or word 
processors, however, it is usually easier to define a new report 
form from the start. 


3.5 TEXT OUTPUT FILE (TXT) 


The text output files are created when the “SET ALTERNATE TO 
<filename>” and "SET ALTERNATE ON" commands have been specified. 
See SET command for more details. Also, the COPY and APPEND 
commands assume a text (.TXT) file whenever the SDF (System Data 
Format) or DELIMITED options are used. 


3.6 INDEX FILES (.NDX) 


Index files are generated by the INDEX command of dBASE. They 
contain keys and pointers to records of a database file. Indexing 
is a dBASE technique that gives rapid location of data in a large 
database. See the INDEX command for more information. 


3-7 FORMAT FILES (.FHT) 


A format file contains ofly "@" statements and "#" comments. It 
is identified by the "SET FORMAT TO <filename» command and is 
activated by subsequent READ commands. Like command files (which 
format files resemble), format files are created and modified by 
any good text processor or the MODIFY COMMAND capability. Format 
files are not, however, necessary. "é"'s and "#"'s statements are 
usually built into the command file that needs then. 


4.0 EXPRESSIONS 


An expression in dBASE is a group of simple items and operators 
that can be evaluated to form a new simple value. For example 
"242" 45 an expression that can be evaluated to the value myn, 
Expressions are not necessarily always numeric in nature. The 
expression ‘abc'+'def' can be evaluated to the value ‘'abedef' 
(character string concatenation), or the expression 1>2 can be 
evaluated to the logical (Boolean) value of ".F." (false). 


Expressions in dBASE are formed fron the following components: 


Database field variables 


Memory variables 
Constants within the commands (literals) 


Functions 
Operations 


VARIABLES - A variable in dBASE is any data field whose value may 
change. The field names of the currently referenced record ina 
dBASE file are variables. Their contents may be changed by moving 
the file pointer or by editing the current record. Variablesare 
also created and changed by the commands, STORE, RESTORE, COUNT, 
SUM, WAIT, ACCEPT, or INPUT. These are called memory variables. 


A variable may be one of three types: 


® Character strings 
® Numeric quantities 
* Logicals 


CONSTANTS - A constant (or literal) is a data item which has an 
invariant, self-defined value. For instance, 1, ‘abc', and .T. 
are constants which have a constant value regardless of the 
position of the database or any memory variable commands. They 
are literals since they ARE the value they represent (as opposed 
to variables which are names representing a value). The values 
they represent are, respectively: a numeric one, a character 
string (containing the letters "a", "b", and "c"), and a logical 
(Boolean) value of TRUE (".T."). 


Character string constants must be enclosed in singie quotes ('), 
double quotes ("), or in square brackets ({,j). If a character 
string contains one of these "delimiters", then it shouid be 
enclosed in a pair of one of the other ones. For example the 
strings ‘abeldefJghit and [abc'def'ghi] are valid character 
strings while 'abe'der'ghi' is not. 


Logical constants (true/false) are represented by "7, "t", "Y", 
or "y" for true values (denoting true or yes) and "F", "f", "N", 
or "n” for false values (denoting false or no). 


4.1 FUNCTIONS 


Functions are special purpose operations that may de used in 
expressions to perform things that are difficult or impossible 
using regular expressions. In dBASE, there are three basic types 
of functions: numeric, character, and logical. The function type 
is based on the type of value that functions generate. 


INTEGER FUNCTION: 
INT(<numeric expression>) 


This function evaluates a numeric expression and discards the 
fractional part (if any) to yield an integer value. The value of 
the INT function is the truncated value of the numeric expression 
within. 


Examples: 


» 2 INT( 123.456) 
123 

. STORE 123.456 To Xx 
123.456 

. 7 DMT(x) 
123 


RECORD NUMBER FUNCTION: 


# 


The value of the record number function is the integer 
corresponding to the current record number. 


Examples: 
-7# 
4 (assuming that a database is in USE and is positioned at 
record number 4) 
SKIP 


vw 


10 


* 


STRING FUNCTION: 
STR(<numeric expression>,<length>,i <decimals>]) 


This function evaluates a numeric expression and yields a 
character string. The value of the STR function is a character 
string of length <length>. If <decimals> is specified, it is the 
number of digits to the right of the decimal point. All 
specifiers may be literals, variables, or expressions. 


CAUTION: When this function is used to generate a key for 
indexing, the cpesifiers MUST be literals. 


Example: 


« 2 S¥R(123.556,9,3) 
123.456 


SUBSTRING FUNCTION: 
$(<ehar expression>,<start>,<length>) 


This function forms a character string from the specified part of 
another string. The value of the substring function is a 
character string of length <length> filled with characters fron 
the character expression starting with character number <start> 
for <length> characters. <start> and <length> may be literals, 
variables or expressions. 


If <length> is longer than the <char expression> or if between 
the <length> and <start> the <char expression> "runs out" of 
characters, then the result will be only those characters that 
are there. See the following examples. 


CAUTION: When the function is used to generate a key for 
indexing, the specifiers MUST be literals. 


Examples: 


- 2 $( tabcdefghi",3,3) 
ede 

- store 3 to m 
3 

- store 3 ton 
3 

- ? $C abedefghi' m,n) 
ede 

. ? $( 'abedefghi',6,7) 
fgni 

+ DISPLAY FOR '8080'$TITLE 


STRING TO NUMERIC FUNCTION: 


VAL(<ohar string>) 


digits, signs, and up to one decimal point. The length of the 
integer is equal to the number of characters in the string. If 
the character string begins with numeric characters but has non 
numeric characters, then the value generated by the VAL function 
is the leading numeric characters. 


This function forms an integer from a character string made of oO 


Another way to convert character numbers into numerics is the use 
the "&" (see 5.0 Macros). The "&" will convert the string intoa 
Mumeric (including the decimal) when the substitution is 
encountered. 


Examples: 


+ ? WaL('123") 

123 
. 2 WAL('123xxx') 

123 
» ? VAL('123.456) 

123 

+ STORE '123.556' TO BUM 
123.456 
- 2 1% + uM 

137.456 


LENGTH FUNCTION: a) 


LEN(<char string>) 


This function yields an integer whose value is the number of 
characters in the named string. 


Example: 
- STORE ‘abc' TO STRIMG 


- 7? LEM(STRING) 
3 


12 


* 


DELETED RECORD FUNCTION: 


This is a logical function which is .TRUE. if the current record 
has been marked for deletion, and -FALSE. otherwise. 


Example: 
- 278 
Te (assuming that a database is in USE and that its 
current record has been deleted using the DELETE 
command ) 


END-OF-FILE FUNCTION: 
EOF 


This 1s a logical function which is .TRUE. if the end of file has 


been reached for the file in USE (the current record will be the 
last record in the database). 


Examples: 


- ? BOF 

Fe (assuming that a database is in USE and is not 
positioned at the last record) 

« GOTO BOTTOM 

- ? BOF 

oF. 

« SKIP 

- ? EOF 

.T. 


SUBSTRING SEARCH FUNCTION: 
@(<char string 1>,<char string 2>) 


This function yieids an integer whose value is the character 
number in <char string 2> which begins a substring identical to 
<char string 1>. If string 1 does not occur in string 2 then the 
@ function will be of value zero. Note: the @ function is similar 
to the substring operator "$" except that it tells where the 
first string is found in the second string, and can well be 
pronounced "where is string 1 AT in string 2". 


Example: 


- ? @('def', "abedefghi') 
4 


13 


UPPER CASE FUNCTION 
!(<char string expression>) 


This function yields the same string as the character string 
expression except that all lower case characters are converted to 
upper case. Oo 


Example: 


- ? It (°abe') 
ABC 


NUMBER TO CHARACTER FUNCTION 


CHR(<numeric expression>) 


This function yields the ASCII character equivalent of the 
numeric expression. That is, if the expression were the number 
13, then CHR(13) generates a carriage return ASCII character. 

-This function is useful when the user needs to send direct 
controls to hardware devices, most often printers. 


Example: 


« ? *abed '+CER(13)+° # 
abcd 


DATE FUNCTION 

DATE () oO 
This function will generate a character string that contains the 
system date in the format MM/DD/YY. The character string always 

has a length of 8. Nothing goes between the parenthesis, they 


only indicate a function (to avoid problems with variables named 
“DATE"). 


The dBASE system date can be entered at dBASE start-up time or at 
anytime using the SET DATE TO command. 


Examples: 


- ? DATE() 

86/15/81 

. STORE DATE() TO MEMVAR 
86/15/81 

. SET DATE TO 4 1 82 

- ? DATE() 

84/61/82 


14 


FILE FUNCTION 


FILE(<string exp>) 
ae) This is a logical function which is .TRUE. if the <string exp> 


exists and is .FALSE. if it does not. 
Example: 


+? FILE('TRACE') 
-T. 
-US8 TRACE 


TYPE FUNCTION 
TYPE(<exp>) 


This function yields a one-character string that contains a 'C’, 
‘N', or 'L' if the <exp> is of type Character, Numeric, or 
Logical respectively. 


Example: 


- STORE 1 TO X 

« 2? TYPR(X) 
oO | 

TRIM FUNCTION 


TRIM(<cstring>) 


The TRIM function removes trailing blanks from a field. Usually 


aBASE carries trailing blanks on all variables to avoid column 
alignment problems on displays.” 


MOTE: This function must NOT be used in the INDEX command as the 
key length must be computable for internal dBASE usage. 


Examples: 


- STORE ‘aBC 6' TOS 
- 7 Lew(s) 

6 
- STORE TRIM(S) TO S 
+ ? LEM(S) 

3 


Oo 


ib) 


4.2 OPERATIONS 


There are four basic types of operations, arithmetic, comparison, 
logical and string. The specific operators in each class are 
listed below, and examples follow for the less familiar ones. 


It 1s important to know that both "sides" of the operators must 
be the same type. That is, one may only add integers to integers 
or concatenate characters with characters, adding an integer to a 
character results in dBASE seeing a syntax error. 


- STORE 3 TO & 
3 
. STORE '3' TO B 
3 
- 2? BoB 


"a8 SYNTAX ERROR #8# 
? 
? ACB 
CORRECT AND RETRY(Y/N)? 


This error occurs because numerics and characters are seen 
differently at the machine level; a numeric 3 1s just that--3 
hex, while a character 3 has the ASCII value of 33 hex. The 
program becomes confused, it does not know whether or not an 
addition is taking place or a concatenation. Using the same 
variables as in the previous example: 


« 7 &+VaL(B) 
6 


The string '3' has been converted to an integer and the addition 
performed. 


ARITHMETIC OPERATORS (generate arithmetic results) 


+ «= addition 
- = subtraction 
# = multiplication 
/ = division 
() = parentheses for grouping 
Examples: 
« 2 (&e2)83 An example of use of 
18 arithmetic parentheses 
>» 2 %e(283) used for grouping 
10 in calculations 
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COMPARISON OPERATORS (generate logical results) 


= less than 

= greater than 
= equal 

= not equal 
= 


evaeinva 


Examples: 


« ? 'abe'$*abcdefghi’ 
«Te 
- 2 tabed' $'ghi jit 
-F. 
« DISPLAY FOR '8080'$TITLE 


less than or equal 
greater than or equal 
substring operator (e.g. if A and B are 


character strings, A$B will 
be TRUE if and only if 
string A is equal to B, or 
is contained in B 


An example of the $ 
substring operator 


Results in all records with 
*8080' somewhere in the field 


TITLE being displayed on the 
screen 


LOGICAL OPERATORS (generate logical results) 


-OR. 
«AND. 
-NOT. 


boolean or 
boolean and 
boolean not 


noon 


Examples: 


- store t toa 

T. 

- store f to b 

oF. 

+ 2a .or. b 

oT. 

- store .not. b toa 
oT. 

- 2a and. co 

oT. 


(unary operator) 
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STRING OPERATORS (generates string result) 


+ string concatenation 


string concatenation with blank squash 


Examples: 

. STORE 'ABCD ‘TO A In a string concatenation 
ABCD the two strings are just 

- STORE 'EFGH' TO B appended to each other. 

EFGH 

- 2? &eB 

ABCD EFGH 

- STORE 'ABCDE ‘Toa In a string concatenation 
ABCDE with blank squash, the trail- 
. STORE '1238 67° TO B ing blanks are moved to the 
1234 «67 end of the string. Leading and 
- 7 AB embeded blanks are not 


ABCDE1234 67 


ORDER OF EXECUTION 


altered. 


The sets of operators for the arithmetic, string and logical have 
an order in which they are satisfied. That is, what operation is 
done before what other operations. The following table indicates 
the order of precedence for each of the three major operator 
classes. In each of the "levels" (1, 2, etc.) the order of 
execution is left-to-right. 


Example: 


« ? 4283 
10 


Arithmetic operator | String operator | Logical 
precedence 1 precedence | 
nS 
l ! 
1) parenthesis, | parenthesis, | NOT. 
functions | functions | 
| ! 
2) unary +)- I relations, $(substring op) | -AND. 
1 | 
3) #,/ ! +,~- (concatenation) | .OR. 
! | 
B) tye l I 
| ! 
| i 


5) relations 
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3-0 MACRO SUBSTITUTION 


Whenever an ampersand (&) followed by the name of a character 
string memory variable is encountered in a command, dBASE 
replaces the & and memory variable name with the memory 
variable's character string. This allows the user to define some 


parts of a command once and call it out any number of times in 
various commands. 


Macros are us-ful when complex expressions must be frequently 
used. They ais allow parameter passing within command file 
nests. All characters between the ampersand and the next special 


character (including space) are taken as the memory variable 
name. 


If the user desires to append characters to the symbolic 
Substitution, then the memory variable name should be terminated 
with a period. The period will be removed like the ampersand at 
substitution time. 


If an ampersand is not followed by a valid memory variable name 
then no expansion is attempted and the ampersand remains in the 


command line. 


Examples: 


- ACCEPT "Enter data disk drive letter" to DR 
USE &DR:DATAFILE (at execution time will be USE B:DATAFILE if 
"B" was entered in response to the ACCEPT) 


. STORE ‘DELETE RECORD ' TO T 
&T 5 (at execution time will be DELETE RECORD 5) 


See appendix A for further examples. 
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6.0 INTERFACING WITH NON-dBASE PROCESSURS 


@BASE can read data from files which were created by processors 
other than dBASE (e.g. BASIC, FORTRAN, PASCAL) and can generate 
riles which can be accepted by other processors. 


The APPEND command has the ability to read standard ASCII] text 
files (using the CP/M convention of a iine of text followed by a 
carriage return and line feed) by specifying the SDF (System bata 
Format) option. Similarly, the COPY command generates standard 
ASCII format files when the SDF option is used. Unless explicitiy 
overridden, the file types of files created with the SDF and 
DELIMITED options will be .TXT. 


Some processors and languages read and write ries 1n a delimited 
format. In this form all fields are separated by commas and 
character strings are enclosed in quotes. dbASE can APPEND and 
COPY these files when the DELIMITED keyword is included in the 
command. If the DELIMITED feature is used, SDF is assumed. 


Since some processors use single quotes and some use doubie 
quotes to delimit character strings, APPEND wiil accept either. 
the COPY command normally generates single quotes but wili output 
any character as defined by the HITH phrase of the DELIMITED 
clause. It 1s strongly recommended tnat oniy single and double 
quotes be used. 


A special case occurs when a "," is used in the WITH phrase for a 
COPY. All trailing bianks in character strings and leading 
blanks in numerics are trimmed. Also, character strings will not 
be enclosed with quotes or any other character. 
M 

Examples: 


-USE <FILEWAME>.DBF 
COPY TO <FILENAME>.TXT DELIMITED WITH " 


USE <FILRUAME>. DBF 
«APPEND FROM <FILEMAME>.DAT SDF 
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1.0 CLASSES OF COMMANDS 


During the normal use of dBASE, various commands are used in 
combination to accomplish a particular task. Such groups are 
shown below. Some dBASE commands are patterned after the 
structured constructs that most "modern" computer languages use 
These commands are in the COMMAND FILE class of commands. There 
are some special rules that control the use of these commands, 
which are expounded upon in section 9.0. . 


CREATION OF FILES - the following commands create database files 
and associated files: 


CREATE ~ create new structured database files 

COPY - copy existing databases to create copies 
MODIFY ~ alters database structures 

REPORT ~ create a report form file 

SAVE = copy the memory variables to mass storage 
INDEX - creates an index file 

REINDEX realigns an old index file 

JOIN - outputs the JOIN of two databases 

TOTAL - outputs a database of totalled records 


ADDITION OF DATA ~ the following commands add new data records to 
databases: 


® APPEND - add data at enc of a file 
® CREATE ~ allows addition of data at creation 
® INSERT - insert data into a file 


EDITING OF DATA - the following commands edit the data within a 
database: 


CHANGE - edit coiumns of fields 

BHOWSE - full screen window viewing and editing 
DELETE - marks records for deletion 

EDIT ~ alter specific data fields in a database 
PACK - removes records marked for deletion 


KECALL - erases gark for de.etion 

REPLACE - repiaces data fieids with values 

READ - replaces data from user defined full-screen 
UPDATE - ailows batch updates of a database 


DATA DISPLAYING COMMANDS - the following commands display 
selected data from a database: 


POSITIONING 


e 
BROWSE 


COUNT 


DISPLAY 
READ 


REPORT 
SUM 


? 


- displays user formated data on CRT or printer 

~ displays up to 19 records with as many fields 
as will fit on the screen 

= count the number of records that meet some 
conditional expression 

- displays records, fields, and expressions 

~- displays data and prompting information in 
full-screen mode 

- format and display a report of data 

- compute and display the sum of an expression 
over a group of database records 

- displays an expression list 


COMMANDS - the following commands position the 


current record pointer to records as directed: 


CONTINUE- positions to next record with conditions 


FIND 


GOTO 
LOCATE 
SKIP 


FILE MANIPULATING 
database files: 


APPEND 


specified in the LOCATE comand 

- positions to record corresponding to a key on 
indexed files 

~ position to a specific record 

- find a record that fits a condition 

- position forwards or backwards 


COMMANDS - the following commands affect entire 


append dBASE files or files in 

System Data Format (SDF) 

copy databases to other databases or SDF 
files 7 


- delete files 
- specifies a command file from which subsequent 


commands are to be taken 


- rename a file 


awitches between USE file 

oreate a copy of a database which is sorted 
on one of the data fields 

specifies the database file to be used for 
all operations until another USE is issued 
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MEMORY VARIABLE COMMANDS - the following commands manipulate the 
memory variables: 


zseonsm eon e se 


COMMAND 


ACCEPT 
COUNT 
DISPLAY 
INPUT 
RESTORE 
SAVE 
STORE 
SUM 
WAIT 


stores a char string into memory variables 
stores counts into memory variables 

can display memory variables 

Stores expressions into memory variables 
retrieves sets of stored memory variables 
save the memory variables to a file 

stores expressions into memory variables 
stores sums into memory variables 

accepts a single keystroke into a memory 
variable 


FILE COMMANDS - the following commands assist in the 


control and usage of command files: 


ACCEPT 


*® CANCEL 
* po 


* IF 
* ELSE 


ENDDO 


* ENDIF 


INPUT 


LOOP 
MODIFY 
COMMAND 
RETURN 
SET 
WAIT 


allows input of character strings into 
memory variables 

cancels command file execution 

causes command files to be executed and 
allows structured loops in command files 
allows conditional execution of commands 
alternate path of command execution 
within IF 

terminator for DO WHILE command 
terminator for IF command 

allows input of expressions into memory 
variables 

skips to beginning of DO WHILE 

allows editing of command files 


ends a command file 
sets GBASE control parameters 
suspends command file processing 


DEVICE CONTROLLING COMMANDS - the following commands control 
peripheral devices like printers and CKT's: 


EJECT 
ERASE 


ejects a page on the list device 
clears the CRT 


8.0 FULL SCREEN OPERATION 


The following are cursor control keys for full screen operation: 


cntl-E,A 
entl-x,F 


entl-S 
entl-D 


entl-y 
entl-v 
entl-G 
<-- 


entl-Q 


When in EDIT 


entl-U 
entl-R 
entl-C 


entl-wW 


When in MODIFY: 


entl-N 
-entl-T 
entl-c 
entl-R 
entl-W or 


entl-Q 


Backs up to previous data field. 
Advances to next data field. 


Backs up one character in data field. 
Advances one character in data field. 


Clears out current field to blanks. 


Switches (toggles) between overwrite and insert 
modes. 


Deletes character under cursor. 
Deletes character to left of cursor. 


Aborts full screen and returns to normal dBASE 
control. Changes to database variables are 
abandoned. 


Switches (toggles) the current record between 
being marked for deletion and unmarked. 

Writes current record back to disk and displays 
previous record i.e. backs up a record. 

Writes current record back to disk and displays 
next record i.e. advances to next record. 

Writes current record to disk and exits screen 
edit mode. 


Moves all items down one to make room for an 
insertion of a new field. 

Deletes the field where the cursor is and moves 
all lower fields up. 

Scrolls fields down. 

Scrolls fields up. 

Writes data to the disk and resumes normal 
operations. 

Exits without saving changes. 
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When in APPEND, CREATE, or INSERT: 


entl-c or 

entl-R - Write current record to disk and proceed to next 
record. 

Carriage return when no changes have been made and cursor is in 
initial position - terminate operation and 


resume normal dBASE operations. 


When in BROWSE: 


entl-U - Switches (toggles) the current record between 
being marked for deletion and unmarked. 

entl-R - Writes current record back to disk and displays 
previous record i.e. backs up a record. 

entl-Cc - Writes current record back to disk and displays 
next record i.e. advances to next record. 

entl-wW - Writes current record to disk and exits screen 
edit mode. 

entl-Z - Pans the window left one field. 

entl-B - Pans the window right one field. 
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9.0 COMMANDS 


The explicit definitions of the dBASE commands are in this 
section. The user should familiarize him/herself with these 
fundamentals before reading the rest of the command information. 


9.1 SYMBOL DEFINITIONS 


Understanding what the special symbols in the general formats of 
the dBASE commands really mean is vitally important. Not only 
does it help in understanding just what the form of the command 
really is, it helps to show the potential of each command. Please 
read the following table thoroughly. 


Symbol Meaning 
<commands> or - means any valid dBASE statements; it also 
<statements> means whole statements. An IF without an 


ENDIF, (or a DO WHILE without an ENDDO), is 
only half of a statement, while a REPORT is 
a whole statement in itself, 


<char string> or means any character string; character 

<estring> strings are those characters that are 
enclosed in single quotes ('), double quotes 
("), or square brackets ([(]). 


<delimiter> - means any special character; special 
characters are those characters from the 
keyboard that are punctuation marks, like 
any one of the following "()*=,@. 


<exp> ~- means an expression; an expression can be 
created by tacking together numbers, 
functions, field names or character strings 
in any meaningful manner. “4+8", and “doc = 
"3' .or. doc = '4'", are both expressions as 
well as "$('abc'+&somestr,n,3) = 'abcdefg'". 


<exp list> - means a list of expressions separated by 
commas; usually simple expressions are used. 
Two of the examples in the previous 
paragraph are rather complicated, the first 
one could be considered as simple. 


<fleld> - means any record field name; in one of the 
examples that are in the following commands, 
one of the databases has field names like 
ITEM, COST, DATE, etc. 


<field list> or means a list of record field names separated 
<list> by commas, 
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<file> or 
<file name> 


<form file> 


<index file> 


<key> 


<memvar> 


<memvar list> 


<m 


<scope> 


NEXT n 


means any filename; these are file names that 
must obey the rules stated in section 3.0. 


means the name of a report form filename; see 
section 3.4 and the REPORT command for the 
how and why of this type of file. 


means the name of the file where indexing 
information is placed; see section 3.6 and 
the INDEX command for the how and why of this 
type of file. 


means the field name which will be indexed 
on. Keys are important; there may be several 
indexes for any given database, each on 
different (or on a combination of) keys. Keys 
may be <expressions> or field names. See the 
INDEX command for more information. 


means any memory variable. Memory variables 
are those variables that are created by 
STOREs or by use of a command that saves some 
value for later use (ACCEPT, INPUT, etc.) 
There is a maximum of 64 memory variables 
allowed in dBASE, 


means a list of memory variables separated 
by commas. 


means a literal; literals are numbers which 
are not gotten from memory variables or 
calculations. "4+8" is not a literal, while 
"4" and "9876" are literals. 


means a specification of the scope of the 
command. Scope means how much the command 
covers. There are three values that <scope> 
may take on: 


means all the records in the file. All means 
that the file is rewound and, whatever the 
command, ALL the records in the file are 
searched for compliance. ALL is the default 
for some of the commands. For other commands 
the default will be the current record 
(especially for the more potentially 
destructive commands like DELETE). Each 
command description tells what the default 
scope is. When using a FOR phrase in any of 
the commands, ALL will be the default. 


means the next n records, including the 
current record; NEXT also begins with the 
record currently being pointed at. n must 
have a literal value; that is, it must not be 
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a memory variable or an expression, 


RECORD n - means only record n; again, n must not be a 
memory variable or an expression—it must be 


literal before it will work. * 


FOR <exp> - Any record so long as some logical expression 
has a true value. Unless otherwise specified, 
the presence of a FOR clause causes ALL 
records to scanned (with a rewind of the 
database). 


WHILE <exp> - All sequential records as long as some 
logical expression (<exp>) has a true value, 
The controlling command stops the first time 
the expression is false. The presence of a 
WHILE clause implies NEXT 65534 unless 
otherwise specified and does not rewind the 
database. 


There are other special symbols used in the command formats. 
These are special to the command and will be explained in the 
body of the command. 
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9.2 RULES TO OPERATE BY 


As with all command “languages” there are a set of rules which 
must be followed to successfully operate the program. The 
following rules are for use in translating the general format of 
the commands into the more useful specific forms. 


1. 


2. 


5. 


The verb of any command must be the first non-blank character 
of the command line; the phrases may follow in any order. A 
verb is an action word; CREATE, APPEND, REPORT, SET, DISPLAY, 
and ERASE are all examples of verbs--they cause a specific 
action. Phrases are equivalent to adverbs; they more fully 
describe the action. FOR, NEXT, and WITH are examples of words 
that begin phrases. All of these example words are refered to 
as “keywords*, 


Any number of blanks may be used to separate words and 
phrases, Remember though, blanks are counted in the 254 limit 
described in Rule #3. 


All commands must be less than 254 characters in length (even 
after a macro expansion). 


Commands and keywords can be abbreviated to the first four (or 
more) characters (e.g. DISPLAY STRUCTURE could be input as 
DISP STRU, DISPL STRUCT, etc.). Just remember that the 
abbreviation must also be spelled correctly up to the point 
where it ends. 


Either upper- or lowercase letters may be used to enter 
commands, keywords, field names, memory variable names, or 
file names. 


Parts of the commands are optional. That is, some parts of the 
commands may be left off when the command is used. Square 
brackets ((]) are used in the command formats to show which 
phrases are the optional constructs that may be left off. 
These are the phrases which are used to modify the action of 
commands. The upper case words are the keywords and they must 
be entered whenever the phrase that contains them is used. 
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A reserved word is a keyword that will generate an error if is 
used for something other that what it is supposed to be. There 
are no reserved words in dBASE. However, certain field names 
and file names can cause difficulty, e.g-, a command file 
named WHILE will be incorrectly interpreted as a DO WHILE 
statement by the DO command processor, ALL as a field name 
cannot be used ina number of commands. In general, it isa 
good practice to avoid the use of dBASE keywords as field 
names or file names. 


dBASE statements in a command file must nest correctly. To 
nest something means that one statement must fit inside 
another statement. This is especially important to proper 
execution of the IF~ELSE~ENDIF and the DO WHILE-ENDDO groups. 
Indenting a command file will show if the statements are 
correctly nested. dBASE does not catch nesting errors, it will 


however execute the command file in an unknown manner. Below 
are examples of how to correctly nest these two statements. 


DO WHILE -NOT. EOF 


statements 


IF A .AND. B 


more statements 
ELSE 


DO WHILE A <= 57 


some more statements 


ENDDO 


even more statements 
ENDIF 


infinitely more statements 


ENDDO 


DO WHILE .NOT. EOF 


statements 


IF something changes values 
ENDDO 


more statements 


ENDIF 


This is the correct 

way to nest. 

The IF-ELSE-ENDIF 
statement is totally 
within the DO WHILE-ENDDO 
statement. Just as the 
second DO WHILE-ENDDO 
statement is totally 
within the ELSE part of 
the IF-ELSE-ENDIF. 

It would be just as easy 
to show more levels 

of nesting, since dBASE 
allows many more levels 
to exist. 


This is an example of a 
NO NO. The ENDDO crossed 
over the boundary of the 
IF-ENDIF group, that is, 
the two statements do not 
nest properly. The 
command file that holds 
these statements will not 
work as expected AND 
GBASE will not explain 
why. 
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@NOIL93S 


? 


? i<exp list>j 
2? [<exp list>] 


This command is a specialized form of the DISPLAY command; it is 
equivalent to DISPLAY OFF <exp>. It can be used to show the value 
an expression or list of expressions. The question mark command 
(possibly pronounced "what is” can use memory variables, database 
fields, constants, or functions. A "7?" with no expression spaces 
down a line on the output. This feature is particularly useful in 
command files to "open up" the displays. 


The second form of this command "77" behaves like a single "2?" 
except that no line feed or carriage return is done before the 
expression is printed. This can be used in command files to 
output more than one expression to the same output line. 


« ? MAKE 


Following is a sample command file that uses the ? to space out 
the display. The command file is set up to be executed with the 
command: "DBASE H:FILE". The dBASE response to the command file 
follows the command file. 


set default to g 

use trace index trace 

‘disp stru 

2. 

accept “Enter today's date." to dte 
set date to &dte 

release dte 

return 
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STRUCTURE FOR FILE: 
NUMBER OF RECORDS: 
DATE OF LAST UPDATE: 
PRIMARY USE DATABASE 


FLD NAME 
001 UP 

002 TRFLD 
003 DOC 
004 DESCR 
005 NATURE 
006 STATUS 
007 TESTED 
®® TOTAL *# 


TRACE. DBF 
02359 

10/08/81 

TYPE WIDTH 
Cc 024 
c 005 
c 024 
c 080 
c 010 
c 006 
c 004 
00154 


Enter today's date.:10 14 81 


DEC 
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@ <coordinates> (SAY <exp> [USING <format>)}} 
(GET <variable> [PICTURE <format>}] 


This command works with the SET FORMAT TO, ERASE, EJECT, CLEAR 
GETS and READ commands and is a most powerful way to display 
specific, formatted information on the screen or the printer. The 
way an "é" is interpreted changes according to how the SET FORMAT 
TO command is used. Also whether or not one of the other commands 
has an effect also depends on the SET command. All combinations 
are discussed below. 


The <coordinates> are an "x,y" pair and may take on one of two 
meanings, either they are screen coordinates or they are printer 
coordinates. The "x,y" denotes line (x) and column (y}. On most 
CRTs, the screen oriented coordinates have an "x" range of 0-23, 
and a "y" range of 0-79, that 1s 24 lines by 80 columns. dBASE 
uses the Oth line for messages to the user and the user should 
avoid using it. The printer oriented coordinates have both an "x" 
and a "y" range of 0-254. For either of these two meanings the 
coordinates can be any literal, numeric memory variable, or 
numeric expression. The SET FORMAT command is used to choose 
between either of these two meanings. 


When a SET FORMAT TO SCREEN command has been issued (which is the 
default), the "@" command causes data to be displayed on the 
screen. A coordinate pair of 0,0 means the first character 
location on the upper left corner of the display. (This 
frequently referred to as the home position.) The pair 10,15 
means the 11th line and the 16th column of the display. Again the 
Oth line on the screen should not be used. "@" commands may be 
issued in any order to the screen. That is, one may SAY something 
to line 15 before one SAYs something to line 10. Likewise columns 
may be filled in any order. 


When a SET FORMAT TO PRINT command had been issued, the "@" 
command will cause data to be printed on the printer. The 
coordinate pair 0,0 refers to the upper left hand corner of the 
paper. "@° commands to the printer must be output in order. Much 
paper will be wasted if this is not done. The user may like to 
pretend that a typewriter is being use (indeed, it is). All 
commands to line 5 must preceed commands to line 6, also, all 
commands to column 10 must preceed commands to column 20, etc. If 
this 1s not done a page eject will occur before the new line is 


printed. 
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When the SET FORMAT TO SCREEN has been issued, an ERASE will 
clear the screen of all information that was previously on it, 
will release all the GETs (see below), and will reset the 
coordinates to 0,0. When the SET FORMAT TO PRINT has been issued 
an EJECT will do a page feed and reset the coordinates to 0,0. 


The SAY phrase is used to display an expression that will not be 
altered by subsequent editing via the READ command. The USING 
subphrase is used to format the expression emitted by the SAY 
phrase. Formatting directives are explained below. It is a good 
thing to always use the USING subphrase. dBASE will take 
liberties with the expression if there is no USING. 


SAY phrases may be used on either the screen or the printer. 
“GETs however, -will only be recognized when the SET FORMAT TO 
SCREEN command has been issued. 


The GET phrase displays the current value of a field variable or 
memory variable. The variable must exist prior to issuing of the 
GET and is subject to later editing by the READ command. The 
PICTURE phrase may be used with a GET phrase to allow special 
formatting and validation of the data as it is entered (see the 
READ command for further information). If no PICTURE clause is 
given, then the data type (character, numeric or logical) forms 
an implicit PICTURE. 


If the data type of the field variable or memory variable in the 
GET is logical then the data validation allows only the 
characters 'T', 'F', 'Y', 'N' and their lower case equivalents to 
be entered. 


A maximus of 64 GETs can be active at any given time. Either the 
ERASE command or the CLEAR GETS command may be used to release 
the existing GETs. 


When SET FORMAT TO SCREEN 1s in effect and if neither a SAY or a 
GBT phrase is given, then the remainder of the line indicated by 
the coordinates is cleared to spaces. Thus @ 10,0 will clear the 
entire 1ith line. 


When the SET FORMAT TO SCREEN is in effect, a READ must be issued 
in order to "£il1" the GETs. (See the READ command). However when 
SET FORMAT TO PRINT is in effect, "@" commands require no 
subsequent READ commands to complete their action. 


Not needing a READ to print allows the user to directly format 
the output for any pre-printed material (such as checks, purchase 
orders, etc.) in a most convenient manner. The user need only to 
remember that "@" commands must be issued as if one were typing 
on a typewriter. 
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In using the SET FORMAT TO PRINT capability, it is often 
hecessary to print out more than one item. The ability to 
subsitute memory variables for the coordinate values is 
important. The following example is from a command file that 
Benerates a special report form for a special task. 


SET FORMAT TO PRINT 
GOTO TOP 
STORE 7 TO CNTh 
DO WHILE .NOT. Co 
IF CNTR >= 50 
EJECT 
STORE 7 TO CNTR 
ENDIF 
@ CNTR,12 SAY P USING 'XXXXXXXXXXXXXXXXXXXXAXXXXXXXXX ! 
@ CNTR,48 SAY D USING 'XXXXXXXXXX* 
@ CNTR,64 SAY Pl USING '"XXXXXXXXXXXXXXXXXX! 
@ CNTR,88 SAY U USING 'XXXXXXXXXX' 
@ CNTR,1O4 SAY P2 USING 'XXXXXXXXXXXXXXXXXX" 
IF RCD <> 0 
@ CNTR,130 SAY RCD USING '9999' 
ENDIF 
STORE CNTR + 1 TO CNTR 
SKIP 
ENDDO 
RETURN 


In this command file, a maximum of 57 lines will be printed on 
the printer before a page eject is done. The purpose here was to 
print out most of the fields of a database (and selectively print 
out one of the fields). Care must be taken to make sure enough 
room is given to the SAY phrase to emit the variable. If the 
USING is shorter than the variable or the field, the variable or 
field is truncated. The <format> for the USING (the 'XXX...X' 
strings are explained in the table below. 


Also, in the SET FORMAT TO PRINT mode, if the coordinates of the 
next "@" allow information to be printed on the same line but 
start it in a column that has already been printed, the printer 
may not output the proper information. In fact, the printer may 
go to the extreme right and print (in one square) all the 
information in the rest of the line. In the SET FORMAT TO SCREEN 
mode, the old information will be written over by the new 
information. 


The last form of the SET FORMAT command is: SET FORMAT TO 
<format file>. When this command is in effect and when a READ 
command has been issued, the "@" commands are READ from the pre- 
designed <format file>. In this manner the user may design the 
screen into a format for more specialized purposes. It is 
important to note here that the use of format files is not 
necessary for use of "@"s, since "@"s may reside in command 
files. See READ for more information. 
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Formats: 


Both the USING and PICTURE clauses have as their object, a 
format. The format is a series of characters that indicate which 
characters appear on the screen or page. The following table 


defines the characters and their functions: 


Format character 


SAY function 


GET function 


# causes the next allows only a digit 
number to be output (1,2,.++,8,9,0) and 
the characters ".", 
1, mm) and " (a 
Space) to be entered 
9 same as # same as # 
x outputs the next allows any character 
character to be entered 
A outputs the next allows only alpha. 
character to be entered 
gor @ outputs either output as is 
a digit or a $ or # 
instead of leading 
zeros 
! no effect converts lowercase 
alpha characters 
to uppercase 
Bxasple: 


« @ 5,1 SAY "BNTER PHOWE NUMBER’ GET PMO PICTURE '(999)999-9999' 


The message ‘ENTER PHONE NUMBER' would be displayed, followed by 
"(bbb)bbbb-bbbb’ (b indicates a blank) assuming that the value of 
PNO was all blanks prior t6 issuance. When (and if) the READ 
command is issued, only digits can be entered. The value of PNO 
after the READ command might well be '(213)555-5555' after 
editing. All of the non-functional characters in the PICTURE 
format are inserted into the variable. In this example, .the 
parentheses, minus sign and the blank are non-functional. 
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+ @ 10,50 SAY HOURS*®RATE USING '$$$$$3$.99' 


This "@" command could be used with either the screen or the 
printer since it has no GET phrase. It might well be used to 
print payroll checks. The doliar signs will be printed as long as 
there are leading zeros in the item to be printed. If hours=40 
and rate = 12.50 then '$$$$500.00' will be displayed. This 
feature is known as floating dollar and is valuable for printing 
checks that cannot be easily altered in value. 


When commas are used in the integer part of a picture, they are 
replaced by the picture character in front of them if there are 
no significant digits in the item to the left of where the comma 
would otherwise be placed. 


« @ 10,50 SAY BOURS ® RATE USING '$$$,$%$.99' 
Would output $$$$500.00 and specifically not output $$$,500.00. 


Normally, a number of "@" commands are issued then, if any GET 
phrases were included, a READ command is issued to allow editing 
or data entry into the GET variables. In the following example 
the screen is formatted with several "@"s and a database is 
filled with information according to these "@"s. The last record 
in the database will have a "0" in the field "name", this is the 
record that will be deleted, since it is not necessary. 


SET FORMAT TO SCREEN 
USE F: EXAMPLE 
ERASE 
DO WHILE NAME # '0' 
APPEND BLANK 
@ 5,0 SAY "ENTER NEXT NAME" ; 
GET NAME PICTURE 'XXXXXXXXXXXXXXXAXXXX! 
@ 6,0 SAY "ENTER TELEPHONE NUMBER"; 
GET TELE:EXTSN PICTURE 'XXXXX' 
@ 6,40 SAY "ENTER MAIL STOP" ; 
GET MAIL:STOP PICTURE "XXXXXXXXXX' 
READ 
ENDDO 
GOTO BOTTOM 
DELETE 
PACK 
LIST 
RETURN 


w 
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The following commands affect the operation of the “@" command: 


SET INTENSITY ON/OFF (default 1s OW) affects the screen 
intensity of GET's and SAY's. 


SET BELL ON/OFF (default is OM) affects the bel) alarm 
when invalid characters are entered or a data boundary is 
crossed. 


SET COLON ON/OFF (defauit is ON) affects whether GET 
variables are bounded by colons. 


SET DEBUG ON/OFF (default is OFF) allows easier debugging 
of "@ commands by shifting ECHO and STEP messages to the 
printer. 


SET SCREEN OM/OFF (default is ON) allows use of full 
soreen operations. 


SET FORMAT TO SCREEN/PRINT/<format file> determines device 
destination of output (SCREEW or PRINTer). SET FORMAT TO 
<format file> establishes a format file as the source of 
=@" commands for the READ command. SCREEW is the default 


value. 


READ entera the editing scde so that GET variables can be 
altered. 
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ACCEPT 


ACCEPT ["<estring>"] TO <memvar> 


This construct permits the entry of character strings into memory 
variables just as the INPUT command, but without the necessity of 
enclosing them in the quote marks required by the INPUT command. 
ACCEPT makes a memory variable of the type ‘character’ out of 
whatever is entered; INPUT determines the data type from the 
syntax of the entry and makes a memory variable of that type. 


The <memvar> is created ,if necessary, and the input character 
string is stored into <memvar>. If "<cstring>" is present, it is 
displayed on the screen, followed by a colon, as a prompt message 
before the input is accepted. If a carriage return is entered in 
response to an ACCEPT request, <memvar> will receive a single 
space character. Either single quotes, double quotes, or square 
brackets may be used to delimit the prompt string, however, both 
the beginning and ending marks must correspond. 


Examples: 


» ACCEPT “KHTER PERSONS NAME" TO NAM 
ENTER PERSONS NAME: John Jones 


- ACCEPT "ENTER PERSON'S NAME" TO HAM2 
ENTER PERSON'S NAME:Dave Smith 


« DISP MEMO 

NAM (C) John Jones 

NAM2 (C) Dave Smith 

## TOTAL ## 02 VARIABLES USED 00020 BYTES USED 


- DISP MEMO 

NAM John Jones 

NAM2 Dave Smith 

ANY ANY CHARACTERS 

** TOTAL ## 03 VARIABLES USED 00034 BYTES USED 
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a. APPEND FROM <file> iFOR <exp>] (SDFj (DELIMITED WITH <delimiter>] 
b. APPEND BLANK 
e@. APPEND 


In all three forms, records are appended onto the database in 
USE. APPEND, CREATE, and INSERT are the only commands that allow 
the addition of records to a database. APPEND and CREATE allow 
multiple additions at one time, INSERT allows only one. 


In the first form, the records to be appended are taken from 
another file, i.e. <file>. If the SDF clause is present, the 
records are assumed to be in System Data Format (see section 
6.0). If the new records are smaller than the old records in the 
USE file, then the new record is padded on the right side with 
blanks; if the new records are longer then the USE file records, 
then the newly appended records are truncated. Records are added 
to the USE file until end-of-file is detected upon the FROM file. 


If the DELIMITED keyword is in the APPEND command, then the 
records taken from the FROM file are assumed to be delimited and 
appended accordingly. Many computer languages generate files 
where character strings are enclosed in single or double quotes 
and fields are separated by commas. In the delimited mode, dBASE 
removes the quotes and commas from delimited files and stores the 
data into a dBASE-structured database, according to the 
“database's structure. 


If the SDF and DELIMITED clauses are not present, then the FROM 
file is assumed to be a dBASE-structured database file. The 
structures of the USE and FROM file are compared. Fields which 
occur in the records of both files are taken from the FROM file 
and appended onto the USE file. Padding and truncation are 
performed as appropriate to force the FROM data items into the 
USE file's structure. 


If the FOR phrase is used, then dBASE appends, to the USEd file, 
the records from the FROM file one by one, each time checking to 
see if the condition in the FOR is true. That is, the first 
record in the FROM file is read. If the expression is true then 
the record is appended to the file in USE and dBASE will skip on 
to the next record. If the expression is false then the record is 
discarded and dBASE will again skip on to the next record. This 
procedure will continue until the end-of-file is reached for the 
PROM file. The implication of this ia that the fields used in the 
expression must reside in the FROM file. 
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If the BLANK clause (form b) is specified, a single, space filled 
record is appended to the USE file. This record can then be 
filled by the EDIT or REPLACE statements. 


If no clauses follow the APPEND command (form c.), the user is 
prompted with the field names from the USE file's structure. Any 
number of new records may be created from the keyboard. The 
append mode is terminated when a carriage return is entered as 
the first character of the first field. 


If the database in USE is an indexed database then the index file 
specified in the USE command is automatically updated when the 
new records are appended (except for APPEND BLANKs). Any other 
index file associated with that database must be re-indexed. 


When APPENDing in the full-screen mode, the SET CARRY ON command 
will cause all of the data from the previous record to be carried 
over to the next record. Changes can then be made. This is 
especially useful if sucessive records have a lot of common data. 


The APPEND command is especially useful when it is necessary to 
expand/contract fields or add/delete fields from an existing 
database. Using the CREATE command, set up a new database 
containing the desired structure and then APPEND the old database 
to the new. Fields which appear only in the new database will be 
blank filled. 


Examples: 
« USE EXAMPLE 


- DISPLAY STRUCTURE 

STRUCTURE FOR FILE: EXAMPLE 

NUMBER OF RECORDS: 00005 

DATE OF LAST UPDATE: 12/31/80 
PRIMARY USE DATABASE 

FLD NAME TYPE WIDTH DEC 
001 NAME c 020 

002 TELE:EXTSN C 005 

003 MAIL: STOP c 010 

#8 TOTAL 9® 00036 


- DISPLAY ALL 
00001 NEUMAN, ALFRED E. 1357 123/456 


00002 RODGERS, ROY 2468 180/103 
00003 CASSIDY, BUTCH 3344 2647401 
00004 CHANG, LEE 6743 190/901 
00005 POST, WILEY 1014 B4/13B 
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APPEND 


- APPEND 

RECORD 00006 

NAME: LANCASTER, WILLIAM J 
TELE:EXTSN: 6623 

MAIL:STOP: 170/430 

RECORD 00007 

NAME: MORRIS, R. "BOB" 
TELE:EXTSN: 8093 

MAIL:STOP: 427/396 

RECORD 00008 


NAME: (er) 


- DISPLAY ALL OFF MAME, TELE: EXTSN 


NEUMAN, ALFRED E. 1357 
RODGERS, ROY 2468 
CASSIDY, BUTCH 3344 
CHANG, LEE 6743 
POST, WILEY 1011 
LANCASTER, WILLIAM J 6623 
NORRIS, R. "BOB" 8093 


. APPEMD FROM DUPE3 
00007 RECORDS ADDED 


« DISPLAY ALL 
00001 NEUMAN, ALFRED E. 1357 123/456 


00002 RODGERS, ROY 2468 180/103 
00003 CASSIDY, BUTCH 3344 264/401 
00004 CHANG, LEE 6743 190/901 
00005 POST, WILEY 1011 84/138 
00006 LANCASTER, WILLIAM J 6623 170/430 
00007 NORRIS, R- "BOB" - 8093 427/396 
00008 NEUMAN, ALFRED E. 1357 
00009 RODGERS, ROY 2468 
00010 CASSIDY, BUTCH 3344 
00011 CHANG, LEE 6743 
00012 POST, WILEY 1011 
00013 LANCASTER, WILLIAM J 6623 
00014 WORRIS, R. "BOB" 8093 


. APPEMD BLANK 


- DISPLAY 
00015 


» REPLACE MAME WITH ‘RIMEHART, RALPH' 
00001 REPLACEMENT(S) 


yy 


oO 


- DISPLAY 
00015 RINEHART, RALPH 


. DISPLAY ALL MAME,* ex =", TELE: EITSW 


00001 NEUMAN, ALFRED E. ex = 1357 
00002 RODGERS, ROY ex = 2468 
00003 CASSIDY, BUTCH ex = 3344 
00004 CHANG, LEE ex = 6743 
00005 POST, WILEY ex = 1011 
00006 LANCASTER, WILLIAM J ex = 6623 
00007 NORRIS, R. "BOL" ex = 6093 
00008 NEUMAN, ALFRED E. ex = 1357 
Q0009 RODGERS, ROY ex = 2468 
00010 CASSIDY, BUTCH ex = 3344 
00011 CHANG, LEE ex = 6743 
00012 POST, WILEY ex = 1011 
00013 LANCASTER, WILLIAM J ex = 6623 
00014 NORRIS, R. "BOB" ex = 8093 
00015 RINEHART, RALPH ex = 


« USE B:SBOPLIST 


- DISP STRU 

STRUCTURE FOR FILE: B:SHOPLIST .DBF 
NUMBER OF RECORDS: 00009 

DATE OF LAST UPDATE: 06/22/79 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 ITEM c 020 

002 NO N 005 

003 COST N 010 002 
*® TOTAL #* 00036 

- CREATE 


FILENAME: MEWSHOP 

ENTER RECORD STRUCTURE AS FOLLOWS: 
FIELD NAME,TYPE,WIDTH,DECIMAL PLACES 
001 ITEM,C,25 


002 ¥O,N,5 

003 COST,M,10,2 
004 MEED:DATE,C,8 
005 (er) 


INPUT NOW? MH 


+ USS MEWSHOP 


APPEND 


APPEND 


+ APPEMD FROM B:SBOPLIST 


00009 RECORDS ADDED #) 
LIST 


00001 BEANS 

00002 BREAD LOAVES 
00003 T-BONE 

00004 PAPER PLATES 
00005 PLASTIC FORKS 
00006 LETTUCE 

00007 BLEU CHEESE 
00008 MILK 

00009 CHARCOAL 


NN HNN FY 
oe--O000uN00 
NWoOUFfoOow 
VFOOWN ALIN 


. REPLACE ALL MKED:DATE WITH ° 7/ 4/76' 
00009 REPLACEMENT(S) 


. LIST 

00001 BEANS 

00002 BREAD LOAVES 
00003 T-BONE 

00004 PAPER PLATES 
00005 PLASTIC FORKS 
00006 LETTUCE 

00007 BLEU CHEESE 
00008 MILK 

00009 CHARCOAL 


T/ 4/76 
T/ 4/76 
1 4/76 
WW 4/76 
4/76 
Tf 4/T6 
1 4/76 


Tf 4/76 
1/ 4/76 


(The following example demonstrates the DELIMITED file append. 
This file could have been created by a number of different 
versions of BASIC) 


o--c 0 oOUce 
sees . 
rwwoMFouwy 
MOOWN OEY 
~ 
~N 


WRENN ey 


"BARNETT, WALT',31415,6 

"NICHOLS, BILL',76767,17 

‘MURRAY, CAROL',89793,4 

"WARD, CHARLES A.',92653,15 

"ANDERSON, JAMES REGINALD IIL','11528', 16 


(Append the file into a dBASE-structured database) 
- USE ORDERS 


- DISP STRU 

STRUCTURE FOR FILE: ORDERS.DBF 
NUMBER OF RECORDS: 00008 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 CUSTOMER c 0z0- 

002 PART:NO Cc 005 

003 AMOUNT N 005 

"® TOTAL ## 00031 

» LIST 

00001 SWARTZ, JOE 31415 13 
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APPEND 


00002 SWARTZ, JOE 76767 13 
00003 HARRIS, ARNOLD 11528 hy 
#) 00004 ADAMS, JEAN 8979312 

00005 MACK, JAY 37415 3 
00006 TERRY, HANS 76767 5 
00007 JUAN, DON 21828 5 
00008 SALT, CLARA 70296 9 
- APPEND FROM DELIM.DAT DELIMITED 

00005 RECORDS ADDED 

- LIST 

00001 SWARTZ, JOE 31415 13 
00002 SWARTZ, JOE 76767 13 
00003 HARRIS, ARNOLD 11528 4y 
00004 ADAMS, JEAN 89793 12 
00005 MACK, JAY 31415 3 
00006 TERRY, HANS 76767 

00007 JUAN, DON 21828 5 
00008 SALT, CLARA 70296 9 
00009 BARNETT, WALT 31415 6 
00010 NICHOLS, BILL 76767 17 
00011 MURRAY, CAROL 89793 4 
00012 WARD, CHARLES A. 92653 15 
00013 ANDERSON, JAMES REGI 11528 16 
(The following examples demonstrates an APPEND FROM <file> FOR 
<exp>. Note that the fields in the FOR are in the USE file also.) 
- USB CHECKS 

« DISP STRU 


STRUCTURE FOR FILE: CHECKS.DBF 
NUMBER OF RECORDS: 00013 
DATE OF LAST UPDATE: 10/18/81 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 NUMBER N 005 
002 RECIPIENT Cc 020 
003 AMOUNT N 010 002 
004 HOME L 001 
005 OUTGOING L 001 
** TOTAL #* 00038 


APPEND 


« LIST 

0000 1 Phone Company 104.89 .F. .T. 
00002 2 Gas Company 4.1W WF. ATs 
90003 3 Bleotrioity 250.31 oF. «Te 
000048 4 Grooery Store 1034.45 .F. .T. 
00005 34 Me 561.77 .T. oF. 
00006 6 Bank, service charge 4.00 .T. .Te 
00007 T Dector Doolittle 100.00 .T. .T. 
00008 8 Pirates 101.01 .F. .T. 
00009 9 Car Repair Man 500.01 .F. .T. 
00010 10 Me 561.01 .T. -Fe 
00011 11 Tuperware 50.02 .F. .T. 
00012 12 Me 561.77 .T. .F- 
00013 13 Me 750.03 .f. oF. 
. USE MOSTH 

- DLS? STaU 


STRUCTURE FOR FILE: MONTH.DBF 
WUMBER OF RECORDS: 00003 
DATE OF LAST UPDATE: 10/16/81 
PRIMARY USE DATABASE 


FLD MAME TYPE WIDTH DEC 
oot NUMBER N 005 

002 AMOUNT uN 010 002 
003 HOME L 001 

e® TOTAL *# 00017 

- LIst 

00001 29 14.89 .T. 

00002 16 764.09 .T. 

00003 78 97.96 .T. 


. APPEND FROM CHECKS FOR BOME 
00006 RECORDS ADDED 


. APPEND FROM CHECKS FOR OUTGOING 
@e@ SYNTAX ERROR *** 
? 


APPEND FROM CHECKS FOR OUTGOING 
CORRECT AND RETRY(Y/N)? N 


That last append was to show what would happen if the FOR field 
was not in the USE file. 


BROWSE 


BROWSE 


BROWSE 


The BROWSE command is one of the most powerful dBASE commands for 
data editing and viewing. The data from up to 19 records is 
displayed on the screen (fewer if fields are greater than 80 
characters). AS many fields as will fit are put on each line. The 
screen should be considered as a window into a database, You can 
scroll backwards and forwards through the records and you can pan 
left and right through the fields of the Gatabase, Any data can 
be edited with the standard full-screen editing method (see 
section 8 for additional information). 


This is a summary of the full-screen control keys that will work 
in BROWSE: 


entl~E,A  - backs up to the previous data field; 


cntl-xX,F - advances to the next data field; 

entl-D - advances to the next character; 

entl-S - backs up to the last character; 

catl-G - deletes the character under the cursor; 

<< - deletes the character before the cursor; 

entl-Q - exits without saving the changes; 

entl-w - exits and saves the changes 

cntl-B - pans the window left one field; 

entl-Z - pans the window right one field; 

enti-c - writes the current record and advances one record; 
entl-R - writes the current record and backs up one record; 
entl-v - switches (toggles) the current record between 


being marked for deletion and not being marked. 


CANCEL 


CANCEL we) 


CANCEL 


Cancel a command file execution and return to the normal keyboard 
interpretive mode. 


Example: 


INPUT ‘IS JOB DONE (¥/N)' TO X 
Ir x 

CANCEL 
ENDIF 


This is a fragment from a command file. The INPUT command asks 
for a yes/no answer. If the answer 15 yes C'yt, "yt, "Tt, or 't') 
then the IF X line of the command file will be satisfied (since X 
will be logically .TRUE.) and the CANCEL command will be 
executed. 


See Appendix A for more examples. 
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CHANGE 


CHANGE 


CHANGE [<scope>] FIELD <list> [FOR <exp>] 


CHANGE is a command that allows the user to make a number of 
alterations to a database with minimum effort. All database 
fields that are referenced in the list are presented to the user 
in the order given by <list>. The user has the Opportunity of 
entering new data, modifing the data or skipping to the next 
field. When the <list> has been exhausted, CHANGE will proceed to 
the next record as specified in the <scope>. The default scope is 
the current record. 


A field can be deleted in its entirety by typing a control-Y¥ 
(followed by a return) in response to the CHANGE? message. The 
CHANGE command can be aborted by typing an ESCAPE character. 
Example: 


- USB CARDS 
- CHANGE FIELD DATE 


RECORD: 00001 

DATE: 08/19/81 
CHANGE? 81 

TO 82 


DATE: 08/19/82 
CHANGE? (or) 


4g 


CLEAR 


CLEAR 


CLEAR (GETS) 


If the GETS (or GET) keyword is used then all of the GETs that 
are pending (i.e. a GET set up by the #@ command) are cleared and 
the screen ts left intact. This is opposed to the ERASE command 
which also clears pending GETs and also erases the screen. 


If there is no GETS keyword, then this command resets dBASE II. 
All databases in USE are closed and un-used, all memory variables 
are released, and the PRIMARY work area is re-selected. 


This command gives dBASE II a "clean slate". For instance: ifa 
command file finished executing and left dBASE in the SECONDARY 
state, then executing a new command file that assumes that the 
PRIMARY state was selected, will cause unknown things to happen. 


CLEAR should be used at the beginning of a command file to give 
the command file a known state. 


Example: 


ug 


Oo 


CONTINUE 


CONTINUE 


This command 1s used with the LOCATE command. LOCATE and 
CONTINUE may be separated by other commands, however there are 
limitations. See the LOCATE command for more information. 
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COPY 


copy 


COPY TO <file> [<scope>j [FIELD <list>] [FOR <exp>] 
iSDF] (STRUCTURE) (DELIMITED [WITH <delimiter>)] 


This command copies the database in USE to another file. The 
<file> may be in dBASE format or in the System Data Format (if 
the SDF option is specified). 


If the STRUCTURE clause is specified, then only the structure of 
a GBASE file in USE is copied to the "TO" file. 


If a list of fields 1s supplied following a FIELD clause, then 
only those data fields are copied TO the file. For the COPY 
STRUCTURE FIELD <list>, only the structure of the listed fields 
is copied TO the file. In either case, the new structure will be 
made up of only those fields specified by the FIELD clause. No 
FIELD clause specifies that all fields will be copied. 


If the SDF clause is specified, then the file in USE is copied to 
another file without the structure. This new file will be in 
ASCII standard format. This allows the generation of files which 
can be input to processors other than dBASE. The STRUCTURE and 
SDF clauses are mutually exclusive. 


If the DELIMITED keyword is also in the command, then the output 
file will have all of its character string type fields enclosed 
in quotes and the fields will be separated by commas. This is the 
converse of a delimited APPEND. By default, the DELIMITED type of 
COPY uses single quotes as delimiters to mark character string 
fields. The WITH sub-phrase of the DELIMITED phrase allows any 
character to be the delimiter. If a"," 1s used as the delimiter 
then the character fields will have trailing blanks trimmed, the 
numeric fields will have the leading blanks trimmed, and the 
character strings will not be enclosed in quotes. The APPEND 
command will only respond to single and double quotes. 


If either the DELIMITED or SDF option is used then the output 
<file> name will default to a .TXT extension, otherwise the 
output file will default to a .DBF extension. 


The "TO" file is created if it does not exist. 
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* 


coPY 


Examples: 
- DISPLAY ALL OFF BAME, TELE: EITSR 
NEUMAN, ALFRED E. 1357 
RODGERS, ROY 2468 
CASSIDY, BUTCH 3344 
CHANG, LEE 6743 
POST, WILEY 1011 
LANCASTER, WILLIAM J 6623 
NORRIS, R. "BOB" 8093 


+ DISPLAY STRUCTURE 

STRUCTURE FOR FILE: EXAMPLE 
NUMBER CF RECORDS: 00007 
DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 NAME c 020 
002 TELE:EXTSN C 005 
003 MAIL: STOP c 010 
*® TOTAL ** 00036 


- COPY TO DUPE 
00007 RECORDS COPIED 


- COPY TO DUPR2 FOR TELE: EXTSN<*8000' 
00006 RECORDS COPIED 


+ USE DUPE2 
+ DISPLAY ALL 

00001 NEUMAN, ALFRED E. 1357 123/456 
00002 RODGERS, ROY 2468 180/103 
00003 CASSIDY, BUTCH 3344 264/401 
00004 CHANG, LEE 6743 190/901 
00005 POST, WILEY 1011 84/13B 


00006 LANCASTER, WILLIAM J 6623 170/430 
. USE EXAMPLE 


- COPY FIELD NAME, TELE: EXTSN TO DUPE3 
00007 RECORDS COPIED 


- USE DUPE3 
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STRUCTURE FOR FILE: DUPE3 
WUMBER OF RECORDS: 00007 
DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD MAME TYPE WIDTH 
001 MAME c 020 
002 TELE:EXTSN = =C 005 
*® TOTAL ## 00036 


+ DISPLAY ALL 
00001 MEUMAN, ALFRED E. 1357 


00002 RODGERS, ROY 2468 
00003 CASSIDY, BUTCH 3344 
00004 CHANG, LEE 6743 
00005 POST, WILEY 1011 
00006 LANCASTER, WILLIAM J 6623 
00007 NORRIS, R. "BOB". 8093 


- USS EXAMPLE 


+ COPY MEIT § TO DUPES 
00004 RECORDS COPIED 


« USE DUPES 

« DISPLAY ALL 

00001 NEUMAN, ALFRED E. 1357 
00002 RODGERS, ROY 2468 
00003 CASSIDY, BUTCH 3344 
00004 CHANG, LEE 6743, 


(The delimited COPY) 
. USE ORDERS 


- DISP STRUCTURE 

STRUCTURE FOR FILE: ORDERS.DBF 
NUMBER OF RECORDS: 00012 
DATE OF LAST UPDATE: 07/01/80 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH 
001 CUSTOMER c 020 
002 PART:NO c 005 
003 AMOUNT N 005 
**® TOTAL &8 00031 


DEC 


123/456 
180/103 
264/401 
190/901 


DEC 


copy 
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coPy 


- LIST 

00001 SWARTZ, JOE 31415 13 
00002 SWARTZ, JOE 76767 13 
00003 HARRIS, ARNOLD 11528 44 
00004 ADAMS, JEAN 89793 12 
00005 MACK, JAY 31415 3 
00006 TERRY, HANS 16767 5 
00007 JUAN, DON 21828 5 
00008 SALT, CLARA 70296 9 
00009 BARNETT, WALT 31415 6 
00010 NICHOLS, BILL 76767 17 
00011 MURRAY, CAROL 89793 4 
00012 WARD, CHARLES A. 92653 15 


- COPY TO DELIM.DAT DELIMITED 
00012 RECORDS COPIED 


‘SWARTZ, JOE 
'SHART2, JOE 


2'31415', 13 
»'76767"', 13 


' 
t 

"HARRIS, ARNOLD "5111526", 4h 
‘ADAMS, JEAN en se 
"MACK, JAY 213 ’ 

‘TERRY, HANS ea 5 
"JUAN, DON ",'21828' 5 
‘SALT, CLARA 1170296", 9 
‘BARNETT, WALT *,'31415', 6 
"NICHOLS, BILL ', "T6767", 17 
"MURRAY, CAROL ', "89793", 4 
‘WARD, CHARLES A. +, '92653', 15 


COUNT 


COUNT [<scope>] [FOR <exp>j (TO <memvar>] 


COUNT 


Count the number of records in the USE file. If the FOR clause is 
then only the number of records which sat.sfy the 


invoked, 


expression are counted. 
count is places into a memory variable. The memory variable will 


be created if it did not exist prior to this command. 


dBASE responds with the message: 


COUNT 


= XXXXX 


Examples: 


. USE INVNTRY 


- DISPLAY STRUCTURE 
STRUCTURE FOR FILE: 
NUMBER OF RECORDS: 
DATE OF LAST UPDATE: 


INVNTRY 
00010 


PRIMARY USE DATABASE 


FLD 
001 
002 
003 
004 
005 
006 
007 
008 
009 


NAME 
ITEM:NO 
CLASS:NO 
VENDOR: NO 
DESCR 
UNIT:COST 
LOCATION 
ON: HAND 
SOLD 
PRICE 


#® TOTAL ## 


+ DISPLAY ALL 


00001 
00002 
00003 
oo0048 
00005 
00006 
00007 
00008 
00009 
00010 


136928 1 
221679 
234561 
§56178 
723756 7 
745336 1 
812763 
876512 
915332 
973328 


ONNNWWNOwOW 


- COUNT 
COUNT = 00010 


10/23/78 


TYPE WIDTH DEC 


zezozrzozzrs 


1673 
1673 
96 
873 
27 
27 
1673 
873 
1673 
27 


006 

003 

005 

013 

007 002 

005 

004 

004 

007 002 
00055 


ADJ. WRENCH 
SM. HAND SAW 
PLASTIC ROD 
ADJ. PULLEY 
ELECT. BOX 
FUSE BLOCK 
GLOBE 

WIRE MESH 
FILE 

CAN COVER 


+ COUNT FOR LTEM:#027500000 
COUNT = 00007 


7.13 
5.17 
2.18 
22.19 
19.56 
12.05 
5.88 
3.18 
1.32 
0.73 


189 
173 
27 
WIT 
354 
63 
VW2 
45 
97 
21 


If the TO clause is included, the integer 


9.98 
7.98 
4.75 
28.50 
25.66 
15.95 
TAMg 
4.25 
1.98 
0.99 


NNNUNAWHh Ee 
wr 


VWWNN=- OWA Oo 
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COUNT 


- COUNT FOR 'ADJ'$DBSCR 
COUNT = 00002 


+ GOTO TOP 


+ COUNT FOR PRICE<10 NEXT 6 
COUNT = 00003 


+ GOTO TOP 


+ COUNT WEXT 6 FOR PRICE<10 
COUNT = 00003 


. USE B:SHOPLIST 


- LIST 

00001 BEANS 

00002 BREAD LOAVES 
00003 T-BONE 

00004 PAPER PLATES 
00005 PLASTIC FORKS 
00006 LETTUCE 

00007 BLEU CHEESE 
00008 MILK 

00009 CHARCOAL 


NWOUFeAWYO-~) 
MOAWNaEru 


NN HNN A EN 
onm-o00WODS 


- DISPLAY STRUCTURE 

STRUCTURE FOR FILE: B: SHOPLIST.DBF 
NUMBER OF RECORDS: 00009 

DATE OF LAST UPDATE: 12/10/76 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 ITEM Cc 020 
002 NO N 005 
003 COST N 010 002 
** TOTAL ## 00036 


+ COUNT TO XX FOR COST>1 
COUNT = 00003 


~ 2k 
3. 


CREATE 


CREATE 


CREATE [<filename>] 


A new dBASE structured file 1s CREATEd. The user provides the 
structure, field names, and file name for the database file. 


If not supplied in the command, the user is first prompted for 
the <filename> to be used by the message: 


FILENAME: 


.The user enters a valid filename with the following added 
restriction: the filename may contain no special characters other 
than those normally used-by CP/M for special purposes (such as 
B: to denote disk drive "B"). 


If the file existed before the create command was given, dBASE 
asks the user: 


DESTROY EXISTING FILE? To which the user must reply ¥ or N as 
the case may be. 


If the file is new to the system or if the user answered Y to the 
destroy question, dBASE is now ready to accept the structure of 
the data base from the user. The following message is displayed: 


ENTER RECORD STRUCTURE AS FOLLOWS: 
FIELD NAME, TYPE,WIDTH,DECIMAL PLACES 
001 


The user now enters field names and associated structure 
information. A field name is a character string up to 10 
characters long which consists of alphabetic letters, numeric 
digits, and colons. Field names must begin with an alphabetic 
character. Fields may be any of three types: character string, 
numeric, or logical. The type field is specified by one 
charaoter, as: 


C - character string 
No - numeric 
L - logical 
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CREATE 


The width refers to the length of the field, for instance, a 
character string may be 20 characters long i.e. it's width is 20. 
Numeric data may be either integer or decimal. The width of 
integers is the maximum number of digits that they may be 
expected to contain. For decimal numbers, two widths are 
required; the first is the maximum number of digits that the 
decimal number is expected to contain (including the decimal 
point), the second width is the number of digits which are to by 
allowed on the right side of the decimal point. Logical data may 
only be of length 1. 


Examples: 


- CREATE 

FILENAME: EXAMPLE 

ENTER RECORD STRUCTURE AS FOLLOWS: 

FIELD NAME, TYPE,WIDTH,DECIMAL PLACES 


001 MaHE,C,20 
002 TELE: EXTSH,C,5 
003 MAIL:STOP,C, 10 
004 (cr) 

INPUT NOW?¥ 


RECORD 00001 


NAME: MEUMAN, ALFRED E. 
TELE:EXTSN: 1357 
MAIL:STOP: 123/456 


RECORD 00002 

NAME: RODGERS, ROY 
TELE:EXTSN: 2468 
MAIL:STOP: 180/103 
RECORD 00003 

NAME: CASSIDY, BUTCH 
TELE:EXTSN: 3344 
MAIL:STOP: 264/401 

RECORD 00004 

NAME: CHANG, LEE 


TELE:EXTSN: 6743 
MAIL:STOP: 190/901 


CREATE 


RECORD 00005 


NAME: POST, WILEY #) 
1011 


TELE: EXTSN: 
MAIL:STOP: 84/13B 


RECORD 00006 
NAME: (or) 


- DISPLAY STRUCTURE 

NO FILE IN USE, FILENAME: EXAMPLE 
STRUCTURE FOR FILE: EXAMPLE 
NUMBER OF RECORDS: 00005 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 NAME c 020 

002 TELE:EXTSN C 005 

003 MAIL: STOP c 010 

*" TOTAL #* 00036 

- DISPLAY ALL 

00001 NEUMAN, ALFRED E. 1357 «123/456 
00002 RODGERS, ROY - 2466 180/103 
00003 CASSIDY, BUTCH 3344 204/401 
00004 CHANG, LEE 6743 190/901 
00005 POST, WILEY 1011 84/136 
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DELETE 


DELETE [<scope>] [FOR <exp>] 
DELETE FILE <filename> 


All records which are within <scope> (and which satisfy the FOR 
expression if present) are marked for deletion. The default scope 
is the current record only. Records are not physically deleted 
until a PACK operation, however records marked for deletion will 
not be copied, appended, or sorted. The RECALL operation may be 
used to revive records marked as deleted. Records which are 
marked for deletion can be displayed. The mark of deletion 
appears as an asterisk between the record number and the first 
field. 


In the second form, the file named <filename> will be removed 
from the disk drive where it resides (if possible) and the space 
it was occupying will be released to the operating systen for 
reassignment. If, however, the <filename> is currently in use, 
the file will not be deleted. 


Examples: 

. LIST 

00001 136928 13 1673 ADJ. WRENCH 7.13 189 9 (0) 
00002 221679 9 1673 SM. HAND SAW 5.17 173 4 1 
00003 234561 0 96 PLASTIC ROD 2.18 27 1120 «453 
00004 556178 2 873 ADJ. PULLEY 22.19 117 3 te) 
00005 723756 73 27 ELECT. BOX 19.56 354 6 1 
00006 745336 13 27 FUSE BLOCK 12.65 63 7 2 
00007 812763 2 1673 GLOBE 5.88 112 5 2 
00008 876512 2 873 WIRE MESH 3.18 45 7 3 
00009 915332 2 1673 FILE 1.32 97 7 3 


+ DELETE RECORD 2 
00001 DELETION(S) 


= 5 


- DELETE WEXT 3 
00003 DELETION(S) 


9-98 
7.98 
4.75 
28.50 
29.66 
15.95 
T.4g 
4.25 
1.98 
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- List 
00001 136928 
00002 #221679 
00003 234561 
00004 556178 
00005 #723756 
00006 ®745336 
00007 #812763 
00008 876512 
00009 915332 


= 


a) 
NNKWUNOWD 


« RECALL ALL 
00004 RECALL(S) 


*, LIST 
00001 136928 13 
00002 221679 
00003 234561 
00008 556178 
00005 723756 T 
00006 745336 13 
00007 812763 2 
00008 876512 2 
0009 915332 2 


wnow 


- DISP FILES Of B 


DATABASE FILBS # RCDS 


SHOPLIST 00007 06/06/76 
SHOPSAVE 00007 06/05/76 

. DELETE FILE B:SHOPSAVE 

FILE DELETED 

. DISPLAY FILES O8 B 

DATABASE FILES # RCDS LAST UPDATE 
SHOPLIST 00007 06/06/76 


1673 ADJ. WREBCH 
1673 SM. HAND SAW 
96 PLASTIC ROD 
873 ADJ. PULLEY 
27 BLECT.BOX 
27 FUSE BLOCK 

1673 GLOBE 
873 WIRE MESH 
1673 FILE 


1673 FILE 


LaST UPDATE 


7.13 
5.17 
2.18 
22.19 
19.56 
12.65 
5.88 
3.18 
1.32 


Te13 
5.17 
2.18 
22.19 
19.56 
12.65 
5.88 
3.18 
1.32 


189 
173 


17 
354 


112 


DELETE 


NNUN AWN EO 


NANUNI OWN Ew 


WWNNnsobn0 


w 


WWNHN OU 
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DISPLAY 


DISPLAY 


a. DISPLAY [<scope>] [FOR <exp>]) i<exp list>) (OFF) 
b. DISPLAY STRUCTURE 

ce. DISPLAY MEMORY 

qd. DISPLAY FILES [ON <disk drive>} [LIKE <skeleton>] 


Display is the foundation of dBASE. The end goal of all database 
operation is to display the data in the database (or cross 
Sections and abstractions of the data) upon demand. DISPLAY 
satisfies that goal by allowing a wide variety of forms that 
select the wanted data. 


In case a. all or part of the database in USE is displayed. If 
<scope> 1s not specified and the FOR <exp> is not in the command, 
only the current record can contribute information for display. 
If <scope> is not specified and there is a FOR <exp>, then all 
records in the database may contribute to the display. All fields 
are displayed unless the <exp list> clause is specified. Valid 
expressions may consist of data fields, memory variables, or any 
valid literal number, character or logical. The current record 
number is prefixed to each iine displayed unless the OFF option 
is selected. If the FOR clause is specified, then only those 
records that satisfy the FOR's conditional expression can 
contribute information for display. 


After groups of 15 records have been displayed, DISPLAY waits for 
any keystroke to continue. This allows. the user to "page" through 
a long display. The LIST command is identical to the DISPLAY 
command except that LIST does not wait after record groups and 
it's default scope is ALL records. An ESCape character terminates 
the DISPLAY or LIST commands. 


In case b. only the structure of the database in USE is 
displayed. 


In case c. all currently defined memory variables are displayed 
‘as memory variable name and associated value. 


Case d. 1s a way to display -DBF files that are residing on the 
default unit (or on <disk drive>) along with some of the 
database's statistics. The LIKE phrase allows other types of 
files to be displayed. The <skeleton> is usually of the fora 
*.type, where type 1s TXT, FRM, MEM, or any other three letter 
string. These files are displayed just as in the CP/M DIR 
command. 
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DISPLAY 


Examples; 

« USE B: INVENTRY © 
- DISPLAY STRUCTURE 

STRUCTURE FOR FILE: B:INVENTRY.DBF 

NUMBER OF RECORDS: 00008 


DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 ITEM Cc 020 
002 cost N 010 002 
003 PART:NO c 005 
00% ON: HAND N 005 


*® TOTAL 00041 BYTES (note: total includes 
‘ 1 overhead byte) 


- DISPLAY ALL ITEM, PART:HO, COST®ON:HAMD ,$(PART:HO,1,2) POM ; 
COST > 100 .aMD. OW:H&D > 2 OFF 


TANK, SHERMAN 89793 404997.00 89 
TROMBONES 76767 15076.12 76 
RINGS, GOLDEN 70296 1000.00 70 


« DISPLAY MEMORY 
CLIENT:NAM (C) DANGLEMEYER, PRENTICE 


BUDGET (CN) 123456.70 
EF:STATUS (L) .T. 
®® TOTAL #* 03 VAKLABLES USED 00027 BYTES USED 


. « DISPLAY FILES OM Bz LIKE *.FRM 
TEST FRM ADMIN FRM ORDERS FRM 


« DISPLAY FILES 

DATABASE FILES #RCDS LAST UPDATE 
TEST DBF 00077 00/00/00 
ADRECS UBF 00073 «= 09/23/81 
HISTSTR DBF 00000 =: 06/29/81 
TMPADMIN DBF 

NOT A dBASE II DATABASE 


The last .DUF file in the List above is the file that is not the 
dBASE database. 


Only representative examples of DISPLAY are given here, refer to 
other commands for other examples. 
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co 


a. DO <file> 
b. DO WHILE <exp> 
<statements> 


CASE <exp> 
<statements> 

CASE <exp> 
<statements> 


. 


[OTHERWISE] 
<statements> 
ENDCASE 


In Case a, <file> is opened and read. The file in this case is 
known as a COMMAND FILE. It consists entirely of dBASE commands. 
The input is interpreted and executed as keyboard commands are. 
Do's can be stacked up to 16 deep (i.e. command files can contain 
DO commands which invoke other command files). Control is 
released by a command file with an end-of-file or by the RETURN 
command. If the current command file was called by a command 
file, control will be given back to the higher level command 
file. If a CANCEL command is encountered during the execution of 
a command file, all command files are closed and the keyboard is 
made the source for future commands. 


In Case b, if the <exp> evaluates as a logical TRUE, the 
statements following the DO are executed until an ENDDO statement 
is encountered. If the <exp> evaluates to a logical FALSE, 
control is transferred to the statement following the ENDDO 
statement. 


Note: <statements> refers to entire statements. The DO WHILE 
statement ends with an ENDDO, Statements must nest properly; if 
there is an IF "inside" a DO WHILE, then an ENDDO may not occur 
before the ENDIF. See section 9.2 Rule 8 for more information. 
Examples: 

DO ACCNTPAY 


DO WHILE .NOT.EOF 
DISPLAY NAME 


In Case c, CASE is an extension of the DO command and takes the 
form shown above. There is no limit to the number of CASE phrases 
that a DO CASE may contain. The OTHERWISE phrase is optional. 


DO CASE is a structured procedure. The individual CASEs in the 
construct could be viewed as the exceptions to the rule that 
defines the OTHERWISE. If some condition needs some special 
processing then the condition would be a CASE and all other 
conditions would be the OTHERWISE. OTHERWISE may also be viewed 
as the default condition. See the first example below. 


dBASE handles the DO CASE construct as a series of IFs. That is, 
dBASE will execute the DO CASE as if it were a list of IF-ENDIFs. 


DO CASE IF ITEM="ORANGES' 
CASE ITEM='ORANGES’ any statements 
any statements ELSE 
CASE ITEM='APPLES' = IF ITEM='APPLES' 
any statements any statements 
OTHERWISE ELSE 
any statements any statements 
ENDCASE ENDIF 
ENDIF 


Thus, dBASE will examine the <exp>s in the individual CASEs and 
the first one that is true will have the statements after it 
executed. When dBASE reaches the next phrase beginning witha 
“CASE” it will exit to the ENDCASE, This means that if more than 
one CASE is true, only the first one will be executed. 


If the OTHERWISE clause is present and none of the CASES are 
true, then the <statements> in the OTHERWISE clause will be 
executed. If there is no OTHERWISE clause and none of the CASEs 
are true, then the DO CASE will be exited with none of the 
<statements> executed at all. 


Any statements that are placed between the "DO CASE" and the 
first "CASE" will not be executed. 
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Examples: 


DO CASE 
CASE ITEM = "BROWN" 
<statements> that process BROWN 
CASE ITEM = "JONES" 
<statements> that process JONES 
CASE ITEM = "SMITH" 
<statements> that process SMITH 
OTHERWISE 
<statements> that process all the other names 
ENDCASE 


In the case above all the expressions were for the same field 
name, This is not necessary. An <exp> may contain anything and 
the series of CASEs need not have a tight relationship. 


DO CASE 
CASE TODAY = “MONDAY” 
<statements> for MONDAY 
CASE WEATHER = "RAIN" 
<statements> for RAIN 
CASE CITY = °LOS ANGELES* 
e <statements> for LOS ANGELES 


Of course, if it is a rainy Monday in Los Angeles only the CASE 
for MONDAY will be executed. 


CASES need not be all character strings as in these two examples, 
Any expression will work. 


DO CASE 
CASE 3 = 2+2 
<statements> for addition 
CASE .NOT. A 
<statements> for boolean logic 
CASE "A"S"ABCDEF" 
<statements> for string logic 
OTHERWISE 
“<statements> 
ENDCASE 


ENDCASE is the statement used to terminate a DO CASE structure. 


When a case or OTHERWISE has finished processing, control is 
resumed at the line following the ENDCASE. 
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EDIT 


EDIT 


EDIT [n) 


The EDIT command aliows the user to selectively change the 
contents of the data fields in a database. Edit's usage and 
action varies, depending on whether on not dBASE is in the full- 
screen mode (see the SET SCREEN command). 


When dBASE 1s in the full-screen mode, editing can ba done by 
either "EDIT or "EDIT n" (n represents the record to be edited). 
If n is not present then dBASE will ask for the coordinates of 
the record to be edited. This {s similar to the non-full-screen 
mode, however, full-screen capabilities will still used after the 
record number is supplied. See section 8, full-screen operations, 
for a description of control keys and cursor movement. 


When the edit command is used in the non-full-screen mode, dBASE 
responds with: 


COORD: 


The user then enters the coordinates of tha data field to be 
changed and (optionally) the new value. The coordinates of the 
data field are: the record oumber, and the field number (or the 
field name). If a new value is supplied, dBASE will replace tno 
contents of the specified field with the new value. If a now 
value is not supplied, dBASE displays the current value of the 
data Cield and prompts the user for changes. If no changes are 
desired, a carriage return will cause dBASE not to alter the 
contents of the field. Whether changes are made or not, d4BASE 
will prompt the user for the next pair of soordinaces with 
another "COORD:" message. z 


After the first set of coordinates have been entered, the user 
may omit either of the coordinate values and dBASE will use the 
previous value of that coordinate. The EDIT mode is exited by 
entering a carriage return as the response to the COORD request. 


The entire data field can be erased by entering a control-f, 
RETURN whenever the CHANGE? message is displayed. This permits a 
field to be completely reentered if desired. The editing of a 
data field can be aborted by entering a CTL-Q character. This 
discards any editing done and restores the data field to its 
original contents. 


If an INDEXed file is being EDITed and the index clause was USEd, 
then dBASE will adjust the index if the key field is altered. [f 
more than one index file is associated with the database, then 
the un-USEd files will be unaffected by the edit. 

Examples: 


+ USE SBOPLIST 


EDIT 


+ DISPLAY STRUCTURE 

STRUCTURE FOR FILE: SHOPLIST 
NUMBER OF RECORDS: 00006 

DATE OF LAST UPDATE: 07/03/76 
PRIMARY USE DATABASE 

FLD NAME TYPE WIDTH DEC 
001 ITEM c 020 

002 xO N 005 

003 coSsT N 010 002 
#* TOTAL ## 00036 


- LIST 

00001 BEANS #303 CAN 
00002 BREAD 

00003 T-BONE STEAKS 

00004 LETTUCE 

00005 MILK (1 GAL BOTTLES) 
00006 CHARCOAL 


0.69 
0.89 
3.59 
0.49 
1.19 
0.69 


m-Ne Fnw 


- EXIT 
COORD: 5,ITEM,MILK (1/2 GAL) 


COORD: 2,1 
ITEM: BREAD 


CHANGE? D 
TO D LOAVES 


ITEM: BREAD LOAVES 
CHANGE? (or) 
COORD: 6,1 


ITEM: CHARCOAL 
CHANGE? AL 
TO aL, 5@ BAGS 


ITEM: CHARCOAL, 5# BAGS 
CHANGE? (or) 
COORD: ,2 


NO: 1 
TO: 2 
COORD: 4 


NO: 1 

TO: 2 

COORD: (er) 

. LIST 

00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
00004 LETTUCE 

00005 MILK (1/2 GAL) 


0.69 
0.89 
3.59 
0.49 
1.19 


NN SNU 


EDIT 


00006 CHARCOAL, 5# BAGS 2 0.69 


(Te following portion of a command file would also allow one to 
edit a database on a selective basis. The "&" is vital to making 
these commands work; it will change the string accepted by the 


ACCEPT into numbers that EDIT will recognize.) 


STORE ‘1° TO X 

DO WHILE X <> '0' 
ACCEPT “Enter Record Number" TO X 
EDIT &X 

ENDDO 
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EJECT 


EJECT 


EJECT 

This command causes the printer to do a form feed {eject the 
page) if either PRINT is SET ON or FORMAT is SET TO PRINT. When 
using the @ command to do direct page formatting, the EJECT 
command also zeros the line and column registers. 


Example: 


- EJECT 


68 


ENDDO 


ENDDO Oo 
The statement used to terminate a DO WHILE loop. When 

encountered, control is transferred back to the DO statement for 

re-assessment of the logical value of the <exp>. 

See the DO command. 


See Appendix A for examples. 
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ERASE 


ERASE 


ERASE 
This command clears the screen and places the cursor (if any) in 
the upper left corner of the screen. When using the @ command 


with the SET SCREEN ON in effect, ERASE clears memory of prior @ 
command gets and pictures. 


Example: 


» ERASE 
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FIND 


FIND 


FIND <char string> or '<char string>' 


This command causes dBASE to FIND the first record in an indexed 
database (in USE) whose key is the same as <char string>. FIND 
allows very rapid location of records within an indexed database. 
A typical FIND time is two seconds on a floppy diskette system. 


FIND operates only on databases that have previously been indexed 
(see the INDEX command description). If the INDEX command used a 
character string expression as the key, then FIND will operate 
when it is given only the first few characters of the key. The 
found record will be the first one whose key has the same order 
and number of characters as the <char string>. For example: a 
record whose key is 'SMITH, JOHN‘ could be found by the statement 
‘FIND SMI' provided that there are no other keys starting with 
‘SMI' proceeding SMITH, JOHN in the index. FIND will always find 
only the first record whose key is the same as <char string>. 
Even if the record pointer is moved down further in the file, a 
subsequent FIND on the same key will find the FIRST record. 


If the index was created with a numeric key, then the found 
record will be the first record whose key is arithmetically equal 
to the object of the FIND. 


Note: that for indexes keyed on both characters and numbers, the 
FIND object is a character string with or without quote 
delimiters. Quote marks only become necessary for character 
strings if the original key had leading blanks. In that case, the 
exact number of leading blanks should be inside the quotes. 


If a memory variable is desired as a FIND object, it must be 
placed after the FIND command by means of an &-macro replacement, 
e.g. FIND &NAME where NAME is a character string memory variable. 
Numeric memory variables must first be converted to a string by 
means of the STR function before they can be "macro-ized". See 
section 5 for a discussion on macros. 


Once a record in a database has been located by means of the FIND 
command, it can be processed just as any other database record. 
That is, it can be interrogated, altered, used in calculations, 
etc. dBASE commands that cause movement of the database (e.g. 
LIST, REPORT, COPY, etc.) will process the found record first and 
proceed to the next record in sequence, based upon the key. 


If no record exists whose key is identical to the <char string> 
then the message: "NO FIND" will be displayed on the screen and 
the record number function "# will give the value of zero. 


If a second record with the same key is wanted, then a SKIP or a 
LOCATE FOR <exp> should be used. The SKIP will not know when 
there is no longer a match, the LOCATE (as long as the key was 


val 


FIND 


used in the expression) will be able to find additional matches. 
SET EXACT ON will cause FIND to get a 'hit' only if there is a 
character for character match for the ENTIRE key (except for 
trailing blanks). 

Examples: 


- USE SHOPLIST INDEX SHOPIMDX 


- LIST 

00001 Beans 5 0.75 
00007 Bleu cheese 1 1.96 
00002 Bread loaves 2 1.06 
00009 Charcoal 2 0.75 
00006 Lettuce 2 0.53 
00008 Milk 2 1.30 
00008 Paper plates 1 0.94 
00005 Plastic forks 5 0.42 
00003 T-Bone steak 4 4.33 
« FIND Bread 

» DISPLAY 

00002 read loaves 2 1.06 
. DISPLAY WEXT 3 

00002 Bread loaves 2 1.06 
00009 Charcoal 2 0.75 
00006 Lettuce 2 0.53 
. FIMD P 

+ DISPLAY 

00004 Paper plates 1 0.94 
. FIMD Plas 

+ DISPLAY 

00005 Plastic forks 5 0.42 
« FIMD P 

« DISPLAY 


00004 Paper plates 1 0.94 


FIND 


PIND will work ina multiple indexed file if the two keys are 
Placed within quotes. 


« list 

00001 Flying High Bird, I. M. IMB001 02/29/04 
00005 Nesting Procedures Bird, I. M. IMBOO2 09/25/06 
00002 Diving Fish, U. R. URFOO1 12/30/23 
00008 Nursing Knight and Gale KGOO1 08/04/44 
00010 Vacationing in Europe Knight and Gale KGO02 06/24/42 
cooo4 101 Ways to Tie a Knot Lynch, I. IL001 04/01/00 
00003 How to Survive a Crash Lynch, M. MLOO1 01/01/30 
00007 Even Primes Sladek, L LSOO1 12/01/73 
00009 Even More Primes Sladek, L LSO02 04/24/73 
00006 Thinking Big Tim, Tiny TTOO? 05/07/42 


- find “Bird, I. M. IMBOO2" 


00005 Nesting Procedures Bird, 1. M. IMB002 09/25/06 


+ find “Lynch, M." 


. disp 

00003 How to Survive a Crash Lynch, M. MLOO1 01/01/30 

- find "Sladek, L Ls002* a) 
- disp 


00009 Even More Primes Sladek, L LS002 04/24/73 


13 


GOTO 


GO or 
GOTO 


a. GOTO RECORD <n> 
b. GOTO TOP 

ce. GOTO BOTTOM 

dad. <n> 

e. GOTO <memvar> 


This command is used to reposition the record pointer of the 
database. 


In either case a or d, the current-record pointer is set to 
record number <n>. Case d is a short-hand method for case a. 


In cases b and c, the file in USE is rewound/unwound (TOP/BOTTOM) 
and the first/last record in the file is pointed to by the 
current-record pointer. When the file in USE has been INDEXed, 


then first/last record is not necessarily the first/last physical - 


record in the database but rather is first/last according to the 
key used to index the database. 


Case e can be used to position to a record number contained in a 
memory variable. 


Examples: 
- USE SBOPLIST 


- GOTO RECORD 6 
6 


- DISPLAY 
00006 LETTUCE 2 0.53 


- GOTO TOP 


. DISPLAY 
00001 BEANS 5 0.75 


- GOTO BOTTOM 


« DISPLAY 
00009 CHARCOAL 2 0.75 
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- List 

00001 BEANS 

00002 BREAD LOAVES 
00003 T-BOWE 

00004 PAPER PLATES 
00005 PLASTIC FORKS 
00006 LETTUCE 
00007 BLEU CHEESE 
00008 MILK 

00009 CHARCOAL 


- STongs % TO RECORD™O 
4 


- GOTO RECORDED 


. DISP 
00004 PAPER PLATES 


NN NUe Seow 


eorresowos 
NWwouUrFouws 
VOOUWwNnNoasernu 


0.86 


GOTO 


5 


IF 


IF <exp> 
<commands> 
(ELSE 
<commands>] 
ENDIF 


The IF command allows conditional execution of other commands. 
This command is used {n command files. When the <#xp>ression 
evaluates to TRUE, the commands following the IF are executed. 
When the expression evaluates to FALSE, the commands following 
the ELSE are executed. If no ELSE is specified, all commands are 
skipped until an ENDIF is encountered. IF commands may be nested 
to any level. © 


Note: <commands> refers to whole command statements. The IF 
command begins with IF and ends with ENDIF. Statements aust nest 
properly, an IF with a DO WHILE in the true (or false) path must 
not ond before the DO WHILE. See section 9.8 Rule 8 for more 
information. 


Examples: 


IF STATUS='MARRIED' 
DO MCOST 

ELSE 
bo SCOST 

ENDIF 


If X=1 
STORE CITY+STATE TO LOCATION 
ENDIF 


See Appendix A for further examples. 


INDEX 


INDEX 


INDEX ON <expression> TO <index file name> 


The INDEX command causes the current file in USE to be indexed on 
the <expression>. <expression> is known as the "key". This means 
that a file will be constructed by dBASE (the <index file>) that 
contains pointers to the records in the USE file. The index file 
is made in such a way that the USE database appears to be sorted 
on the key for subsequent operations. The file tn use is not 
physically changed. Sorting will be in an ascending order. 
A descending sort may be done on an expression that is a numeric. 
See below for an example. 


Indexing allows very rapid location of database records by 
specifing all or part of the key by means of tha FIND command. 
(See FIND). A database need not be indexed unless the application 
being worked would be enhanced by it. An indexed database can be 
used later with or without the indexing feature. 


Many times, the INDEX command need only De done once for any 
given file. For tastance, the APPEND command will automaticaily 
adjust the index file when new records are added. 


If an indexed database is reUSEd (in a later dBASE run or later 
in the same run that did the original INDEX operation), then a 
special form of the USE command aust de used (ise. USE <database 
filename> INDEX <index filename>). 


Any number of index files may be constructed for any database, 
however, only the USEd index files will be automatically updated 
by the APPEND, EDIT, REPLACE, READ or BROWSE commands. 


An indexed file can be packed with the PACK command and the 
database, as well as the index file, will be properly adjusted. 
However if more that one index file 1s associated with the PACKed 
database, then that database must reINDEXed on those keys. 


WARMING: The TRIM function must NOT be used as part of an index 
key. Also, if the $ or STR functions are used as part or allofa 
key, they must have literal numbers (not variables or 
exprassions) as their Length parameters (e.g. INDEX ON 
$(NAME,N,5)+STR(AMOUNT,5) TO NDXFILE instead of INDEX ON 
$(NAME,N,N*5)+STR(AMOUNT,SIZEVAR) TO NDXFILE). 
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Examples; 


oO _ USE sooeLIsT 


- LIST 

00001 Beans 

00002 Bread loaves 
00003 T-Bone steak 
00004 Paper plates 
00005 Plastic forks 
00006 Lettuce 
00007 Bleu cheese 
00008 Milk 

00009 Charcoal 


NNPNUP aw U 


« DISPLAY STRUCTURE 

STRUCTURE FOR FILE: SHOPLIST.DBF 
NUMBER OF RECORDS: 00009 

DATE OF LAST UPDATE: 07/03/76 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 

001 ITEM c 020 

002 NO N 005 

003 cost N 010 002 

** TOTAL ** 00036 
oO - NOTE CREATE INDEX PILE SHOPINDX 


- INDEX G3 ITEM TO SHOPINDX 
- NOTE NOW LIST IN INDEX ORDER 


. List 

00001 Beans 

00007 Bleu cheese 
00002 Bread loaves 
00009 Charcoal 
00006 Lettuce 
00008 Milk 

00004 Paper plates 
00005 Plastic forks 
00003 T-Bone steak 


mUeY NNN OF 


+ NOTE INDEXING ALLOWS FIND COMMAND 
- Fr milk 


+ DISPLAY 
00008 Milk 2 


oO . PDD be 


CHrHOOOBRFRO 
WWWOU POWs) 
CONDWNAWAM 


oe eee ee ee 


eee 


i OLD OO EO 


rf 
Cees sess 
WNHhOWM au 


1.30 


0.75 


INDEX 
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RECORD: 00007 


- DISPLAY 
00007 Bleu cheese 1 1.96 


- SKIP -1l 
RECORD: 00001 


- DISPLAY 
00001 Beans 5 0.75 


» NOTE REGULAR USE COMMAND DOES NOT INCLUDE INDEX FILE 


. USE SaoeList 


00001 Beans 5 0.75 
00002 Bread loaves 2 1.06 
00003 T-Bone steak 4 4.33 
00004 Paper plates 1 0.94 
0000S Plastic forks 5 0.42 
00006 Lettuce 2 0.53 
00007 Bleu cheese 1 1.96 
00008 Milk 2 1.30 
00009 Charcoal 2 0.75 


- NOTE ALTERNATE FORM OF USE COMMAND RECALLS INDEX FILE 


. USE SHOPLIST INDEX SHOPDEX 


- LIst 

00001 Beans 5 0.75 
00007 Bleu cheese 1 1.96 
00002 Bread loaves 2 1.06 
00009 Charcoal 2 0.75 
00006 Lettuce 2 0.53 
00008 Milk 2 1.30 
00004 Paper plates 1 0.94 
00005 Plastic forks 5 0.42 
00003 T-Bone steak 4 4.33 


INDEX 
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Oo 


. USE BOOKS 
. DISP saw 


STRUCTURE FOR FILE: 


NUMBER 


OF RECORDS: 00010 


DATE OF LAST UPDATE: 10/18/81 
PRIMARY USE DATABASE 


BOOKS . DBF 


PLD NAME TYPE WIDTH DEC 
001 TITLE c 025 
002 AUTHOR c 015 
003 CAT: NUM c 006 
004 ARR: DTE c 008 
** TOTAL ** 00055 


- DSDEX Of AUTHOR + CAT:NUM TO BOOKS 
00010 RECORDS INDEXED 


. List 
00001 
00005 
00002 
00008 
00010 
00004 
00003 
00007 
00009 
00006 


Flying High 

Nesting Procedures 
Diving 

Nursing 

Vacationing in Europe 
101 Ways to Tie a Knot 
How to Survive a Crash 
Even Primes 

Even More Primes 
Thinking Big 


Bird, I. M. 
Bird, I. M. 
Fish, U. R. 


IMB001 
1MB002 
URFOO] 


Knight and Gale KG001 
Knight and Gale KG002 


Lynch, I. 
Lynch, M. 
Sladek, L 
Sladek, L 
Tim, Tiny 


IL001 
MLOOL 
Lsoo1 
Ls002 
TTOOl 


Rev. A 


02/29/04 
09/25/06 
12/30/23 
08/04/44 
06/24/42 
04/01/00 
01/01/30 
12/01/73 
04/24/73 
05/07/42 
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DiroT 


INPUT 


INPUT ["<cstring>"j TO <memvar> 


This construct permits the entry of expression values into memory 
variables, and can be used within command files as @ means for 
the user to enter data at the command file's bidding. <memvar> 1s 
sated, 1f necessary, and the expression is atored into 
<memvar>. If <ostring> is present, it is displayed on the screen 
as a prompt message before the input is accepted. 


The type of the <memvar> is determined from the type of data that 
is entered. If a delimited character string is entered, the 
<memvar> will be of type character. Ifa numeric expression is 
entered, (memvar> will be of type numeric. If a T or f (for True 
or Yes) is entered, <memvar> will be a logical veriable with the 
value TRUE; if an F or N (for False or No) 1s entered, ‘memvar> 
will be a logical variable with the value FALSE. The function 
TYPE may be used to explicitly determine the type of the entry. 


Either single or double quote marks may be used to delimit the 
prompt string, however, both the beginning and ending marks aust 
be the same. 


INPOT should be used to enter numeric and logical data only. The 
ACCEPT command is a more convenient way to enter character 


strings. 
Examples; 


. INPUT TOYX 
23 
3 


- INPUT TO Z 
323/17.0000X 
4,352 


. INPUT ‘PROMPT USER FOR INPUT’ TO Q 
PROMPT USER FOR INPUT: 12345 
12345 


. INPUT ‘ENTER T IP EVERYTHING IS OKAY' TO LOG 
ENTER T IF EVERYTHING IS OKary:T 
-T. 


. UMPUT “ENTER A CHAR STRING" TO CHAR 
ENTER A CHAR STRING: ‘CHAR STRIMG MUST BE QUOTE DELIMITED’ 
CHAR STRING MUST BE QUOTE DELIMITED 
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o 


INPUT 


- DISP MENO 

x (NX) 3 

Z (NH) 4.352 

Q Qa) 12345 

Loa (L) .T. 

CHAR {C) CHAR STRING MUST BE QUOTE DELIMITED 
** TOTAL ## 05 VARIABLES USED 00054% BYTES USED 


- INPUT ‘ENTER ANY LOGICAL * TO LOG2 
ENTER ANY LOGICAL :y 
oT. 
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INSERT 


INSERT 


INSERT (BEFORE) (BLANK) 


This command allows records to be INSERTed into the middle of a 
database. Only one record at a time may be inserted into the 
database with the INSERT command. 


The BEFORE phrase is used to cause insertion before the record 
currently pointed at, otherwise the new record will be placed 
just after the current record. Unless the BLANK phrase is used, 
the user will be prompted for input values as with the APPEND and 
CREATE commands. If the BLANK phrase is specified, then an empty 
record is inserted. 


If the CARRY is SET ON then the information in the previous 
record is carried over to the new record. 


INSERTS into a large non-indexed database take a long time to 
_ complete and should be avoided unless necessary. INSERTs into an 
indexed file, no matter what size, are identical to APPENDs. 


Examples: 
« USE SSOPLIST 


- List 

00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
00004 LETTUCE 

00005 MILK (1/2 GAL) 
00006 CHARCOAL, 5# BAGS 


NNN SFENW 


- GOTO RECORD 4 


. INSERT 

RECORD 00005 

ITEM: BLEU CHEESE 
NO: 1 

COST: 1.79 
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- LIST 


00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
00004 LETTUCE 

00005 BLEU CHEESE 

0006 MILK (1/2 GAL) 
00007 CHARCOAL, 5% BAGS 


+ GOTO RECORD 4 
- INSERT BEFORE 


RECORD 00004 


ITEM: PAPER PLATES 
NO: 1 

COST: 279 

« LIST 


00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
00004 PAPER PLATES 
00005 LETTUCE 

00006 BLEU CHEESE 

00007 MILK (1/2 GAL) 
00008 CHARCOAL, 5# BAGS 


4 


« DISPLAY 
00004 PAPER PLATES 


+ INSERT BLANK 


00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
00004 PAPER PLATES 


00006 LETTUCE 

00007 BLEU CHEESE 

00008 MILK (1/2 GAL) 
00009 CHARCOAL, 5¢ BAGS 


OnHyen eww 


NNSONMS EN 


0.69 
0.89 
3.59 
0.49 
1.79 
1.19 
0.69 


Qer EIN OQ 


o-~aowod 
wwowwvwwvwvw 


INSERT 
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INSERT 


- 5 

« REPLACE ITEM WITH ‘PLASTIC FORKS' AND MO WITH 5 AND COST 
WITH .39 

00001 REPLACEMENT(S) 

» LIST 

00001 BEANS #303 CAN 5 0.69 
00002 BREAD LOAVES ra 0.89 
00003 T-BONE STEAKS 4 3-59 
00004 PAPER PLATES 1 0.79 
00005 PLASTIC FORKS 5 0.39 
00006 LETTUCE 4 0.49 
00007 BLEU CHEESE 1 1.79 
00008 MILK (1/2 GAL) 2 1.19 
00009 CHARCOAL, 5# BAGS 2 0.69 
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JOIN 


JOIN 


JOIN TO <file> FOR <expression> {FIELDS <field list>j 


This is one of the most powerful commands in dBASE. It allows two 
databases to be JOINed together to form a third database whenever 
some criterion is met. 


The two databases used are the primary and secondary USE files. 
First the SELECT PRIMARY command is issued. Then the JOIN 
command is issued. JOIN then positions dBASE to the first record 
of the primary USE file and evaluates the ON expression for each 
record in the secondary USE file. Each time that the expression 
yields a TRUE result, a record as added TO the new database. When 
the end of the secondary USE file is reached, the primary USE 
file is advanced one record, the secondary USE file is ‘rewound! 
and the process continues until the primary USE file is 
exhausted. 


If the FIELDS phrase is omitted then the output database will be 
comprised of all the fields in the primary USE file's structure 
and as many of the secondary USE file's fields as will fit before 
exceeding the 32 field limit of dBASE. 


If the FIELDS phrase 1s supplied, then those fields, and only 
those fields, that are in the field List will be placed in the 
output database. 


This command takes a lot of time to complete if the contributing 
databases are large. And if the joining criterion is tco loose, 
causing many joinings per primary record, then there is the 
potential for causing a JOIN that dBASE cannot complete. For 
example, suppose that the primary and secondary USE files each 
contain a 1000 records, and that the expression is always true, a 
million records should be output by the JOIN into a database 
whose size would exceed the dBASE maximum of 65,535 records. 
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JOIN 


Example: 
-USE INVENTRY 


DISPLAY STRUCTURE 

STRUCTURE FOR FILE: INVENTRY .DBF 
NUMBER OF RECORDS: 00008 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 

001 ITEM c 020 

00z cCOsT N 010 002 

003 PART:NO c 005 

004 ON: HAND N 005 

®8 TOTAL #* 00041 

- LIST 

00001 TIME STITCH 9.99 24776 i 
0000¢ WIDGET 1.67 31415 18 
00003 GADGET, LARGE 16.33 92653 7 
00004 TANK, SHERMAN 134999.00 89793 3 
00005 SINK, KITCHEN 34.72 21828 17 
00006 TROMBONES 198.37 76767 76 
00007 RINGS, GOLDEN 200.00 70296 5 
00008 #9 COAL 22.00 11528 16 


- SELECT SECOMDARY 
« USE ORDERS 


- DISPLAY STRUCTURE 

STRUCTURE FOR FILE: ORDERS.DBF 
NUMBER OF RECORDS: 00008 
DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 CUSTOMER Cc 020 

002 PART: NO c 005 

003 AMOUNT N 005 

©* TOTAL &* 00031 

- LIsT 

00001 SWARTZ, JOE 31415 13 
00002 SWARTZ, JOE 16767 13 
00003 HARRIS, ARNOLD 11528 44 
00008 ADAMS, JEAN 89793 12 
00005 MACK, JAY $1415 3 
00006 TERRY, HANS 16767 5 
00007 JUAN, DON 21828 5 
00008 SALT, CLARA 10296 9 


.* 


» SELECT PRIMARY 


- JOIN TO AMMOTATE FOR PART:MO-S. PART: BO; 
FIELD CUSTOMER, ITEM, AMOUNT ,COST 


+ USE ANNOTATE 


+ DISPLAY STKJCTURE 

STRUCTURE FOR FILE: ANNOTATE. DBF 
NUMBER OF RECORDS: 00008 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 

001 CUSTOMER Cc 020 

002 ITEM c 020 

003 AMOUNT N 005 

004 CcOsT N 010 002 

*#® TOTAL @* 00056 

- LIST 

00001 SWARTZ, JOE WIDGET 

oo002 MACK, JAY WIDGET 

00003 ADAMS, JEAN TANK, SHERMAN 
00004 JUAN, DON SINK, KITCHEN 
00005 SWARTZ, JOE TROMBONES 
00006 TERRY, HANS TROMBONES 
00007 SALT, CLARA RINGS, GOLDEN 
00006 HARRIS, ARNOLD #9 COAL 


» USE IMVENTRY 


JOIN 


use the inventory 
file to add names 
to the orders 


1,67 

1.67 
134999.00 
34.72 
198.37 
198.37 
200.00 
22.00 


(join customer names with part numbers with insufficent 
inventory to satisfy orders so that the customers can be 


notified, for instance) 


. JOIN TO BACKORDR FOR PART:4O=S.PART=NO. AND. OM :HAND< AMOUNT; 


FIELD CUSTOMER, ITEM 


- USE BACKORDR 


- LIST 

00001 ADAMS, JEAN TANK, SHERMAN 
00002 SALT, CLARA RINGS, GOLDEN 
00003 HARRIS, ARNOLD #9 COAL 
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LIST 


LIST 


LIST is the same as DISPLAY, except the scope defaults to ALL 
records and WAIT does not wait for a go-ahead after 15 record 
groups. Notice however that LIST STRUCTURE, LIST FILES and LIST 
MEMORY commands work exactly as the DISPLAY command. 
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LOCATE 


LOCATE 


LOCATE i<scope>j [FOR <exp>) 
(CONTINUE ] 


This command causes a search of database records in the USE file 
for the first record whose data fields allow the expression <exp> 
to be TRUE. When the expression is satisfied, the following 
message is displayed: : 


RECORD n 


The CONTINUE command may be used to continue the search. Other 
dBASE commands may be issued between the LOCATE and the CONTINUE. 
This does, however, limit the number of the characters in the 
FOR <exp> to 126 instead of 254. See CONTINUE. 


If the expression cannot be found, the message END OF FILE is 
displayed, and the database is left positioned at the last record 
in the file. If the NEXT clause (see scope, section 9.1) is used 
in this command and the expression cannot be found within the 
scope of the NEXT, the message END OF LOCATE is displayed, and 
the database is left positioned at the last record scanned. 


Note: a LOCATE will work faster ona file that is USEd without 
an INDEX file. 


Examples: 


» USE SHOPLIST 


- LIST 

00001 BEANS #303 CAN 5 0.69 
00002 BREAD LOAVES 2 0.89 
00003 T-BONE STEAKS 4 3.59 
00004 PAPER PLATES 1 0.79 
00005 PLASTIC FORKS 5 0.39 
00006 LETTUCE 2 0.49 
00007 BLEU CHEESE 1 1.79 
00008 MILK (1/2 GAL) 2 1.19 
00009 CHARCOAL, 5#@ BAGS z 0.69 


. LOCATE FOR COST>.70 
RECORD: 00002 


» CONTINUE 
RECORD: 00003 


- DISP ITEM 
T-BONE STEAKS 
« CONTINUE 
RECORD: 00004 
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. CONTIMUE 
RECORD: 00007 


+ COBTINUE 
RECORD: 00008 


. COBTINUE 
END OF FILE 


LOCATE 
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LOOP 


LOOP 


LOOP 


This command is used within the body of a DO WHILE to skip the 
commands following the LOOP, and still allow the reappraisal and 
possible reexecution of the body of the DO WHILE. LOOP is used to 
shorten DO WHILE loops which, if large, can be time consuming or 
may contain commands which are to be skipped at times. LOOP acts 
much as an ENDDO command, it will backup to the DO WHILE that 
matches it in nesting depth. 


Use of loops in a DO WHILE is not a good programming practice and 
should be avoided. The following example was done a second time, 
the second follows the first, without use of the LOOP capability. 


Example: 


STORE 1 TO INDEX 
DO WHILE INDEX<10 
STORE INDEX+1 TO INDEX 


IF ITEM=' ‘ Anytime that ITEM is equal to blanks 
SKIP then skip to the next record 
LOOP and go back to the DO WHILE 
ENDIF 
DO PROCESS 
ENDDO 
Example 2: 


STORE 1 TO INDEX 
DO WHILE INDEX < 10 
STORE INDEX + 1 TO INDEX 
IF ITEM = ' « 
SKIP 
ELSE 
DO PROCESS 
ENDIF 
ENDDO 
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MODIFY 


MODIFY 


a. MODIFY STRUCTURE 
b. MODIFY COMMAND [<command file>] 


Form a. of this command allows the user to modify the structure 
of a dBASE file. Any changes are permitted, Fields can be added, 
deleted, or have their parameters (e.g. name, type, length, 
number of decimals) changed. 


MODIFY acts upon the database currently in USE. The existing 
structure is displayed on the screen, changes are made directly 
on the screen in the same way as full-screen editing is done with 
two exceptions: cntl-N inserts a blank line wherever the cursor 
is, cntl-T deletes the line that the cursor is on. The other 
control keys behave as described in section 9. 


NOTE: the MODIFY STRUCTURE command deletes ALL data records that 
were in the USE file prior to the MODIFY. In order to modify a 
structure and keep its data, first COPY the structure to a work 
file, USE the work file, make the modifications, and finally 
APPEND the old data to the work file. The original database and 
the work file may be RENAME'd if it is necessary to restore their 
original names. See the example below. 


Form b. of this command allows minor full-screen editing of 
command files (or anything else). If the <command file> is 
omitted then the user is prompted for it. If the file doesn't 
exist, it is created. After a command file has been edited, 
MODIFY COMMAND will rename type of the old copy to .BAK and save 
the new copy with the type .CMD. 


When in MODIPY COMMAND, the cntl-N and entl-T editing functions 
work as described in a previous paragraph. Cnt1-Q will abort all 
changes to the command file, cntl-W will write the changes back 
to the disk and to the rename that was described above. 


There are some significant restrictions to this form of the 
command: 1) lines can only be 77 or fewer characters long 
{including the carriage return/line feed pair); 2) TAB characters 
are converted to single spaces; 3) the cursor can only be backed 
up in a file about 4000 bytes; 4) there is no search or block 
move capability as are in some text editors. 
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MODIFY 


Full-screen cursor controls are the same for MODIFY COMMAND 
EXCEPT for the following commands: 


enti-N - inserts a blank line wherever the cursor is; 
entl-T - deletes the line the cursor is on and moves up the 
lower lines; 
cntl-w - writes the changes made to the file back on the 
disk and exits MODIFY COMMAND; 
entl-Q - aborts any changes made to the command file; 
entl-R - scrolls one line down; and 
entl~C - scrolls one page up. 
Example: 
« NOTE -- AN EXAMPLE OF HOW TO MODIFY A STRUCTURE WITHOUT 
« NOTE LOSING THE INFORMATION IN THE PILE 


- USE INVNTRY 
- COPY TO WORK 
« USE WORK 


+ MODIFY STRUCTURE 


» APPEND FROM INVNTRY 
« DELETE FILE INVNTRY 
- USE 


« RENAME WORK TO INVNTRY 
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NOTE 


NOTE 


a. NOTE any characters 
bd. # any characters 


This command allows comments to be placed into a command file 
Unlike the REMARK command, the content of this command is not 
echoed onto the output device. 

Example: 

NOTE - last modification : 4 july 1976 


® ~~ last modification spelled doom's day 
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PACK 


PACK 


PACK 


This command purges all records marked for deletion by the DELETE 
command. Once the PACK command has been issued, nothing can bring 
back deleted records. 


If the file being PACKed is indexed, and the indexed file is in 
use, then the PACK will adjust the index file at the same time it 
adjusts the USE file. For large indexed files, doing a PACK on 
the file without the index and then reindexing is faster. 


If the database is indexed by more that one index file, then the 
other index files must be-reINDEXed on those keys since the PACK 
will (in all probability) have moved records around. 

An alternate method to the PACK is to COPY the old file to a new 
file. DELETEd records will not be copied. Then the old file may 
be deleted (or saved as a back-up) and the new file renamed. 
Examples: 


- USE B:SBOPSAVE 


+ LIST 

00001 BEANS 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 T-BONE 4 3.94 
00004 PAPER PLATES 1 0.86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 MILK 2 1.30 
00009 CHARCOAL 2 0.75 
» DELETE RECORD 8 

00001 DELETION(S) 

« List 

00001 BEANS 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 1T-BONE 4 3.94 
00004 PAPER PLATES 1 0.86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE . 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 *MILK 2 1.30 
00009 CHARCOAL 2 0.75 


- Pack 
PACK COMPLETE, 00008 RECORDS COPIED 
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PACK 


- LIST 

00001 BEANS 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 T-BONE 4 3-94 
00004 PAPER PLATES 1 0.86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 CHARCOAL 2 0.75 


A PACK need not always be done, for example, suppose some records 
must be deleted but it is necessary for them to remain in the 
database. These records will not be COPY'd, APPENDed, or SORTed; 
they will however be COUNTed. It becomes important to know 
wether or not the record being processed is deleted or not. The 
following example is a partial command file that would skip over 
a record that has been deleted and continue processing with the 
next record. 


DO WHILE .NOT. EOF 
LOCATE FOR NATURE = "TLM" 
IF .NOT. ® 


commands 


ENDIF 
CONTINUE 
ENDDO 
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QUIT 


QUIT 


QUIT [TO <com file list>j 


This command closes all database files, command files, and 
alternate files and returns control to the operating system. The 
message ®#* END RUN dBASE ®®*® is displayed. 


If the TO phrase is included, then all the programs in the <con 
file list> will be executed in sequence by CP/M. This feature 
lets you to go out of dBASE and chain to other pieces of 
software. 


There is no limit to the number of programs or CP/M commands 
which can be executed as long as the 254 character limit for any 
command is not broken. dBASE be reentered an the end of the 
string of commands. However, it is not required; CP/M will be 
given control when the string of commands are all finished 
executing. 


Example: 

« QUIT TO 'DIR B:',*PIP PRW:=@LTERMAT.TXT*, "DBASE CHDFILE' 
In this example, dBASE is exited, a directory of the B-drive is 
done, PIP is then called to copy a file to the print device, and 


aBASE is reentered with a command file (CMDFILE.CMD) taking 
control immediately. 
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READ 


This command enters the full~screen mode for editing and/or data 
entry of variables identified for and displayed by an "@" command 
with a GET phrase. The cursor can be moved to any of the GET 
variables. Changes made to those variables on the screen are 
entered into the appropiate database fields or memory variables. 


If the SET FORMAT TO <format file> command has been issued, then 
READ will cause all of the "@" commands in the format file to be 
executed, thus formatting the screen, allowing editing of all GET 
variables. Hotice that this technique is a tailorable substitute 
for the EDIT command when in the interactive mode. 


When in the SET FORMAT TO SCREEN mode, an ERASE command is used 
‘to clear the scree. A series of "@" commands may then be issued 
to format the screen. Then a READ command would be given which 
would allow editing. 


If a second or later series of "@" commands is issued after a 
READ command, then READ will place the cursor on the first GET 
variable following the last READ. In this way, the screen format 
and the specific variables edited can be based on decisions made 
by the user in response to prior READ commands. 


Variables to be used with the "@" commands and edited using the 
READ command must be either in the USE file as field names or 
must be character string memory variables. Memory variables must 
be predefined before the "@" command is issued. If necessary, 
store as many blanks as you want the maximum length of the memory 
variable to be in order to initialize the memory variable (e.g. 
STORE ' ‘to MEMVAR). 


See section § for cursor control and data entry instructions. 


The SET SCREEN ON command must be in effect (this is the default 
condition if fullescreen operations were enabled when dBASE II 


was installed). 
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READ 


Example: 


STORE ' ' TO PTYPE 

STORE ° " TO accT 

ERASE 

@ 5,0 SAY 'Enter a C for cash payment’ 

@ 6,0 SAY! or a D for deferred payment! 

@ 8,10 GET PTYPE 

READ 

IF PIYPE='D' 
@ 10,10 SAY ‘Enter acct no.' GET ACCT PICTURE '999-99-9999' 
READ 

ENDIF 


In this command file fragment, the screen is cleared and the 
first two "é" commands are put up. The cursor will be between two 
colons that mark the screen location of the variable PTYPE. Since 
the first STORE set the size of PTYPE at 1 character, any entry 
by the user will fill PTYPE and exit the first READ command. 


If a "D" was entered by the dBASE operator, then the "8" command 
that asks for an account number will be done. Notice that ACCT 
was defined long enough in the STORE to include the two dashes 
that the PICTURE phrase in the "@" will enter 


USE CHECKS 
SET FORMAT TO SCREEN 
ACCEPT "Option" TO CHOICE 
IF CHOICE$'Aa' 
ERASE 
DO WHILE NUMBER # 0 
APPEND BLANK 
@ 5,0 SAY "Enter next Number" ; 
GET NUMBER PICTURE '99999' 
@ 6,0 SAY "Enter Recipient"; 
GET RECIPIENT PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXX" 
@ 7,0 SAY "Enter Amount"; 
GET AMOUNT PICTURE '9999999999' 
@ 8,5 SAY "Is it back yet7" ; 


GET HOME 
@ 8,30 SAY "Are you paying out?"; 
GET OUTGOING 
READ 
ENDDO 
ENDIF 


In the last example, a file was used and altered directly, the 
choice being left up to the operator on whether or not to add new 
records to the database in question. 
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READ 


Refer to the "@" command for more details. 
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RECALL 


RECALL i<scope>] [FOR <exp>) 


This command removes the mark-for-deletion from the records that 
were marked by the DELETE command. 


Examples: 

- USE DUPE3 

» LIST 

00001 NEUMAN, ALFRED E. 1357 
00002 RODGERS, ROY 2468 
00003 CASSIDY, BUTCH 3344 
00004 CHANG, LEE 6743 
00005 POST, WILEY 1011 


00006 LANCASTER, WILLIAM J 6623 
-3 


« DELETE WEXT 3 
00003 DELETION(S) 


. LIST 

00001 NEUMAN, ALFRED E. 1357 
00002 RODGERS, ROY 2468 
00003 ®CASSIDY, BUTCH 3344 
00004 ®CHANG, LEE 6743 
00005 ®POST, WILEY 1011 


00006 LANCASTER, WILLIAM J 6623 


- RECALL RECORD 4 
00001 RECALL(S) 


LIST 


00001 NEUMAN, ALFRED E. 1357 
00002 RODGERS, ROY 2468 
00003 "CASSIDY, BUTCH 3344 
00004 CHANG, LEE 6743 
00005 "POST, WILEY 1011 


00006 LANCASTER, WILLIAM J 6623 


- RECALL ALL 
00002 RECALL(S) 
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« LIST 
00001 
90002 
00003 
00004 
g0005 
00006 


NEUMAN, ALFRED E. 
RODGERS, ROY 
CASSIDY, BUTCH 
CRANG, LEE 

POST, WILEY 


1357 
2468 
3344 
6743 
1011 


LANCASTER, WILLIAM J 6623 


RECALL 
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RELEASE 


RELEASE 
RELEASE i<memvar list>] 
CALL) 
This command releases all or selected memory variables and makes 


the space that they consumed available for new memory variables. 
If ALL is specified, then all memory variables will be deleted. 
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REMARK 


= a) 


REMARK any characters. 


This command allows the display of any characters. The contents 
of this command are displayed on the output device when this 
command is encountered. 


Examples: 


. REMARK #689¢8 pewARK TEST Coenenae 
#80088 REMARK TEST #¢8eec08 
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RENAME 


REWAME <original file name> TO <new file name> 

This command allows the changeing of the name of a file in the 
CP/M directory. If no file type (the up to 3 characters following 
a file name) is given then dBASE assumes that a database's name 


is being used and assigns the type .DBF to the named files. See 
section 4 for more detail concerning dBASE use of file types. 


Example: 
- RENAME INVENMAC TO INVENOLD 
- RENAME D:REPORT.FRM TO REPORT. BAK 


+ RENAME TYPELESS. TO TYPED.TYP 
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REPLACE 


REPLACE 


REPLACE [<scope>] <field> WITH <exp> (,<field2> WITH <exp2>] ,ete 
LFOR <exp>j 


This command is used to replace the contents of specified data 
fields of the file in USE with some new data. This command is 
contrasted with the STORE command in that REPLACE changes only 
field variables, while the STORE command changes only memory 
variables. 


If <scope> 1s not supplied in the command then REPLACE acts only 
on the current record. 


If a REPLACE is done on an index key and the index is in USE, 
then the index file will be adjusted by deleting the old index 
entry and re-entering the new entry in its proper place. Un-USEd 
index files will not be affected. When a REPLACE is done on an 
index key, the altered record will "shift places" in the file, 
the new "next record" will not be the same as the old "next 
record". The key should not be REPLACEd with a NEXT n as the 
<scope>. 


Examples: 
- USE SHOPLIST 


+ WOTE LMFLATION CAUSES 10% PRICE INCREASE 


- LIST 

00001 BEANS #303 CAN 5 0.69 
00002 BREAD LOAVES 2 0.89 
00003 T-BONE STEAKS 4 3.59 
00004 PAPER PLATES 1 0.79 
00005 PLASTIC FORKS 5 0.39 
00006 LETTUCE 2 0.49 
00007 BLEU CHEESE 1 1.79 
00008 MILK (1/2 GAL) 2 1.19 
00009 CHARCOAL, 5# BAGS 2 0.69 


« REPLACE ALL COST WITH COST#1.1 
00009 REPLACEMENT(S) 
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REPLACE 


« List 

0000t BEANS #303 CAN 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 T-BONE STEAKS 4 3.94 
00008 PAPER PLATES 1 0. 86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 MILK (1/2 GAL) 2 1.30 
00009 CHARCOAL, 5# BAGS 2 0.75 
« USS B:SBOPLIST 

- COPY TO B:SHOPHORE 

00009 RECORDS COPIED 

- LIST 

00001 «BEANS 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 T-BONE 4 3.94 
00004 PAPER PLATES 1 0.86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE J 1.96 
00008 MILK 2 1.30 
00009 CHARCOAL 2 0.75 


+ REPLACE MEXT 5 COST WITH COST®1.1 FOR COST>.75 
00003 REPLACEMENT(S) 


- LIST 

00001 BEANS 5 0.75 
00002 BREAD LOAVES 2 1.06 
00005 T-BONE 4 4.33 
00004 PAPER PLATES 1 0.94 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
90008 MILK 2 1.30 
00009 CHARCOAL 2 0.75 


STRUCTURE FOR FILE: CHECKS.DBF 
NUMBER OF RECORDS: 00016 

DATE OF LAST UPDATE: 10/16/81 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH 
001 NUMBER N vos 
002 RECIPIENT c 020 
003 AMOUNT N 010 
004 HOME L 001 
005 QUTGOING L 001 
*® TOTAL #* 00038 
- LIST 

00001 1 Phone Company 
00002 2 Gas Company 
00003 3 Electricity 
o0004 4 Grocery Store 
00005 134 Me, salary 
00006 6 Bank (sc) 

00007 1 Doctor Doolittle 
00006 8 Pirates 

00009 9 Car Repair Man 
00010 10 Me 

00011 11 Tuperware 

00012 12 Me 

00013 13 Me 

00014 234 Peter Rabbit 
00015 237 Golden Goose 
00016 30 Me 

ek! 


- REPLACE BOME WITH F 
00001 REPLACEMENT(S) 


- DISPLAY 


00011 11 Tuperware 


DEC 


002 


REPLACE 


104.89 .F. .T. 

4.15 .F. Te 
250.30 .F. .T. 
1034.45 .F. .T. 
561.17 .T. .F. 

4.00 .T. .T. 
100.00 .T. .T. 
100.00 .F. .T. 
500.01 .F. .T. 
561.77 .T. «Fs 

50.02 .F. .T. 
561.77 .T. .F. 
150.03 .T. «Fs 

14.00 .F. .T. 
650.00 .F. .T. 
561.77 .T. oF. 


50.02 .F. .T. 
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REPORT 


REPORT [FORM <form file>) [<scope>) [TO PRINT] [PLAIN] 


REPORT is used to prepare reports (either on the screen or on 
Paper) by displaying data from the file in USE in a defined . 
manner, Reports may have titled columns, totaled numeric fields, 
and displayed expressions involving data fields, memory 
variables, and constants. 


The FOR phrase allows only that information which meets the 
Conditions of the <exp> to be reported; the TO PRINT phrase sends 
the report to the printer as well as the screen; and the <scope> 
of the report defaults to ALL unless otherwise specified. 


The first time the REPORT command is used (for a new report) a 
FORM file is built. dBASE prompts the user for specifications of 
the report format and automatically generates the FORM file. 
Subsequent reports can use the FORM file to avoid respecification 
of the report format, If the FORM phrase of the command is 
omitted the user will be prompted for the name of the form file, 


The following example of a form file has almost all the options 
specified. The user may control the number of spaces to indent 
the lines in the body of the report with the 'mM' option (default 
is 8 spaces); the number of lines per page is changed with the 
'L' option (default is 57 lines); and the location of the page 
heading is controlled with the 'w' option (the page width, 
default is 80 characters) since it is only used for centering the 
page heading. 


. REPORT FORM SHOPPORM 

ENTER OPTIONS, MPLEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH M=5,W=65 
PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Shopping List for Picnic 
DOUBLE SPACE REPORT? (Y/N) W 

ARE TOTALS REQUIRED? (YAN) Y¥ 

SUBTOTALS IN REPORT? (Y/N) N 

COL WIDTH , CONTENTS 

001 23, 1TeM+'...' 

ENTER HEADING: Item;==mm 

002 10,60 

ENTER HEADING: >tumber;——== 

ARE TOTALS REQUIRED? (Y/N) Y 

003 10,COST 

ENTER HEADING: >Cost/I tem; =a: 

ARE TOTALS REQUIRED? (Y/N) N 

004 10,NO*COST 

ENTER HEADING: >COST;=== 

ARE TOTALS REQUIRED? (Y/N) Y 

005 (cr) 4 


REPORT asks for the width of the fleld to be printed and the 
contents of the field. The width asked for here has no 
relationship to the actual width of the field to be printed out, 
for instance, in the first column above, ITEMis in a column that 
is 23 characters wide, in the data base ITEM is actually only 20 
characters wide. One should also note that the string '...' is 
being concatenated to the contents of the field ITEM. This 
accounts for the extra 3 characters in the report. This also 
means that if the report column is less in length than the field 
that should go into it, dBASE will wrap the field to fit. An 80 
character field would generate 2 lines if it were put into a 50 
character column. 


The contents of the columns may be fields from a database, a 
memory variable, literals, or expressions. Note that in column 1 
in the form on the previous page, there is a concatenated string. 
Each record in the database in use will have three periods 
concatenated to the end of the string only as far as the report 
is concerned (the database will remain unchanged). Cofumn 4 
contains the product of NO and COST. Column r has no field 
equivalent to it in the database. (The fields are, left to right, 


named ITEM, NO, and COST) 


» List 

00001 BEANS 5 0.75 
00002 BREAD LOAVES 2 1.06 
00003 T-BONE 4 4.33 
00004 PAPER PLATES L 0.94 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 MILK 2 1.30 
00009 CHARCOAL 2 0.75 


Returning to the FORM file (the questions on what should go into 
the report), note that there are some special characters used in 
the headings. For page headings, column headings, and character 
strings, a semicolon (;) will break the heading or string at the 
semicolon and resume the display on the next line. If a heading 
or string is too long to fit within the number of spaces allowed 
for it, it will be broken at the last blank (if possible) and 
resumed on the next line. The other signifigant characters are 
"<", and ">". In column headings, if the title is preceeded with 
a "<" then the title will be left-justified in the column. 
Likewise a ">" will right-justify the title. 


Other options in REPORT include totalling, subtotalling, and 
summary reports. In summary reports, detail records are not 
displayed, just totals and subtotals. Totalling and subtotalling 
is done only on fields that are numeric in nature. See the report 
examples. 


Finally a carriage return will end the report form and begin 


displaying the report. A copy will be printed on the printer if 
the TO PRINT phrase was included in the initial command. 
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Other dBASE commands that effect the operation of report are the 
"SET EJECT OFF", “SET HEADING TO* and "SET DATE TO“ commands. 
Before REPORT prints out its information, it does a page eject. 
This capability may be suppressed with the SET EJECT OFF command. 
The SET HEADING TO command allows an additional heading to be 
added to the report at run time. This command has an effect for 
the duration of one session. (The heading must be set each time a 
new dBASE run is initiated.) The same is true for the SET DATE TO 
command. The date of the report may be changed or omitted by use 
of this command. See the SET command for more information. 


There comes a time when this capability is no longer adequate; 
special forms must be used, more flexibility is desired with the 
report format, retreiving the data from the database requires 
more complex methods than REPORT will handle, etc. The “@" and 
the SET FORMAT TO PRINT commands will give the user more power 
over the form of the report. See the "@" command for more 
information and examples. 

Examples: 

. USE SHOPLIST 


« REPORT FORM SHOPFORM 


PAGE NO. 00001 


Shopping List for Picnic 


Item Number Cost/Item cost 
BEANS eee 5 0.75 3.75 
BREAD LOAVES eee 2 1.06 2.12 
T-BONE eee 4 4.33 17.32 
PAPER PLATES ovens 1 0.94 0.94 
PLASTIC FORKS exer 5 0.42 2.10 
LETTUCE iets 2 0.53 1.06 
BLEU CHEESE eee 1 1.96 ~ 1.96 
MILK eee 2 1.30 2.60 
CHARCOAL eee 2 0.75 1.50 
at TOTAL et 
24 33.35 
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. SST BEADING TO 4 July 1976 


PAGE NO. 00001 


4 July 1976 


Shopping List for Picnic 


Item 

=o 
BEANS eee 
BREAD LOAVES eee 
T-BONE ae 
PAPER PLATES eee 
PLASTIC FORKS aoe 
LETTUCE ase 
BLEU CHEESE 
MILK 
CHARCOAL 
** TOTAL ** 

Example 2: 


This example shows use of the subtotalling capabilities of dBASE. 
when the report form is created the subtotalling is done on the 
field PART:NO. This could be done if it was necessary to know 
not only who the part was ordered by but also how many of each 


part must be made (or bought) 
. USE ORDERS INDEX ORDERS 


00010 NICHOLS, BILL 
00004 ADAMS, JEAN 
00011 MURRAY, CAROL 
00012 WARD, CHARLES A. 


Number Cost/Item 


—o 


. 


11528 
11528 
21828 
31415 
31415 
31415 
70296 
76767 
76767 
76767 
89793 
89793 
92653 


NNPNUR BNW 


N 
a 
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« REPORT 

ENTER REPORT FORM NAME: ORDERS 

ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGF WIDTH W565 
PAGE HEADING? (Y/N) Y 

ENTER PAGE HEADING: ORDERS LISTED BY PART NUMBER 
DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS REQUIRED? (Y/N) ¥ 

SUBTOTALS IN REPORT? (Y/N) ¥ 

ENTER SUBTOTALS FIELD: PART:NO 

SUMMARY REPORT ONLY? (Y/N) N 

EJECT PAGE AFTER SUBTOTALS? (Y/N) M 

ENTER SUBTOTAL HEADING: Orders for part number 
COL WIDTH , CONTENTS 


001 20 ,CUSTOMER 
ENTER HEADING: <CUSTOMER NAME 
002 10 ,AMOUNT 


ENTER HEADING: >QUANTITY 
ARE TOTALS REQUIRED? (Y/N) Y¥ 
003 


PAGE NO. 00001 


ORDERS LISTED BY PART NUMBER 


CUSTOMER NAME QUANTITY 

ORDERED 
* orders for part number 11528 
HARRIS, ARNOLD 44 
ANDERSON, JAMES RBGI 16 


**® SUBTOTAL ** 
60 


* orders for part number 21828 
JUAN, DON 5 
** SUBTOTAL ** 

5 


* orders for part number 31415 


SWARTZ, JOE 13 
MACK, JAY 3 
BARNETT, WALT 6 


** SUBTOTAL ** 
22 


* Orders for part number 70296 
SALT, CLARA 9 
** SUBTOTAL ** 


* Orders for part number 76767 a) 


SWARTZ, JOE 13 
TERRY, HANS 5 
NICHOLS, BILL 17 


** SUBTOTAL ** 


* Orders for part number 89793 
ADAMS, JEAN 12 
MURRAY, CAROL 4 
** SUBTOTAL ** 


* Orders for part number 92653 
WARD, CHARLES A. 15 
** SUBTOTAL ** 


** TOTAL ** 
162 


Example 3: 


Suppose some of your collegues and yourself started playing cards 
for points to see who would buy lunch for everyone on the next 
holiday. In the interest of fair play, you decide to keep a 
running total on the score. All sorts of information could be dug 
out of the database (like who could loose his shirt if he wasn't 
careful). The following database could be an example of such a 
game. 


. DISP STRU 

STRUCTURE FOR FILE: CARDS.DBF 
NUMBER OF RECORDS: 00016 
DATE OF LAST UPDATE: 09/17/81 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 DATE c 008 
002 LISA N 003 
003 ANNA N 003 
004 WAYNE N 003 
** TOTAL ** 00018 
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. REPORT 

ENTER REPORT FORM NAME: CARDS 
ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH W=40 
PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: Hearts Scores 
DOUBLE SPACE REPORT? (Y/N) N 
ARE TOTALS REQUIRED? (Y/N) ¥ 
SUBTOTALS IN REPORT? (Y/N) N 
COL WIDTH , CONTENTS 

001 10 ,DATE 

ENTER HEADING: Date of;Game 
002 6,LISA 

ENTER HEADING: Score;Lisa 
ARE TOTALS REQUIRED? (Y/N) ¥ 
003 6, ARRA 

ENTER HEADING: Score;Anna 
ARE TOTALS REQUIRED? (Y/N) ¥ 
004 6, WAYNE 

ENTER HEADING: Score;Hayne 
ARE TOTALS REQUIRED? (¥/N) Y¥ 
005 5, LISAARAHARE 
ENTER HEADING: Game; Total 
ARE TOTALS REQUIRED? (Y/N) Y 
006 (er) 


(Note-—the last column in the report form is a totalling of the 
scores in each of the records, that is, the sum of Lisa's, 
Wayne's and Anna's scores. It is not necessary for the column in 
the report to exist in the database before it may be used, the 
field "LISA+ANNA+WAYNE” does not exist in the database "CARDS". 
This would be an example of how an expression may be placed in 
a report.) 
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PAGE NO. 00001 
Hearts Scores 


Date of Score Score Score Game 
Game Lisa Anna Wayne Total 


05/26/81 29 75 53 157 
05/27/81 45 48 63 156 
05/28/81 50 56 74 180 
05/29/81 86 24 72 182 
06/05/81 43 12 75 130 
06/12/81 42 9 27 78 
06/26/81 84 35 63 182 
07/06/81 33 71 26 130 
08/19/81 37 55 38 130 
09/15/81 19 57 54 130 
09/16/81 15 7 108 130 
09/17/81 59 13 58 130 
®® TOTAL ** 


715 698 875 2288 


A report may also cover just a few of the records ina File. 
Like; 


+ GOTO RECORD 7 
« REPORT WEXT 4 FORM CARDS 
PAGE NO. 00001 


Hearts Scores 


Date of Score Score Score Game 
Gane Lisa Anna Wayne Total 


07/07/81 40 63 27 130 
07/09/81 55 41 60 156 
07/13/81 40 63 54 157 
07/23/81 38 69 23 130 
** TOTAL ** 
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A report may also ask for information which would meet certain 
criteria, Like: 


* + REPORT FORM CARDS FOR WAYME < 50 


PAGE NO. 00001 
Hearts Scores 


Date of Score Score Score Game 


Game Lisa Anna Wayne Total 
06/12/81 42 9 27 78 
07/06/81 33 7 26 130 
07/07/81 40 63 27 130 
07/23/81 38 69 23 130 
08/19/81 37 55 38 130 
we TOTAL an 


190 267 141 598 


- REPORT FORM NEXT WHILE CUSTOMER >="R” 


PAGE NO. 00001 


12/13/81 

CUSTOMER PART AMOUNT 
MACK, JAY 31415 3 
MURRAY, CAROL 89793 4 
NICHOLS, BILL 76767 17 
SALT, CLARA 70296 9 
SWARTZ, JOE 31415 13 
SWARTZ, JOE 76767 13 
TERRY, HANS 76767 5 


WARD, CHARLES A. 92653 15 
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PLAIN is an extension of the command REPORT. This allows for a 
dBASE report to be created in such a manner that it may be 
inserted into a report generated by a wordprocessor. 


The clause PLAIN causes page numbers and the date at the top of 
each page in the report to be suppressed. Page headings are 


inserted 
report. 


into the dBASE report only at the beginning of the 
If it is desired to suppress the page ejects between 


reports then the SET EJECT OFF must still be used. 


Examples: 


. 


USE TRACE INDEX DOC 


NOTE POSITION THE DATABASE AT THE FPIRST RECORD FOR THE REPORT 


304 


REPORT PORM TABLES PLAIN WHILE DOC = °3-280-T° 

ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH 
PAGE HEADING? (Y/N) ¥ 

ENTER PAGE HEADING: TABLES 

DOUBLE SPACE REPORT? (Y/N) N 

ARE TOTALS REQUIRED? (Y/N) N 


COL WIDTH ,CONTENTS 

001 20,$(DOC,7,17) 
ENTER HEADING: TABLE 

002 40,DESCR 

ENTER HEADING: REQUIREMENT 
003 (cr) 
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Fr rPIOHU PWD 


NHK 


TABLES 
TABLE REQUIREMENT 


GLL Telemetry Modes 

Allowable combinations of R/T and Record 
Formats 

Bus User Codes 

GLL Bit rate allocation 

Header Format 

Format Identification 

Commutation Map identifier Assignment 
S/C Clock Progression 

ol Eng data layout 

2 Fixed-Area Structure/Position 

3 


. 
w 
. 

N 


Identifiers 


Variable Area Pocket Structure/Position 
Identifier 


2.4 CDS Fixed area Measurement Sampling Time 
«2.8 Engr Measurements 
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RESET 
RESET 


The RESET command is used to reset the CP/M bit map after a 
diskette has been swapped. Normally, if a diskette is swapped, 
CP/M will not allow writes to take place until after a warm or 
soft boot has taken place. RESET atteapts to re-open all files 
which were open prior to the swap. If a file that was open is no 
longer mounted on an active disk drive, RESET closes the file 


internally. 


WARNING: If a disk is swapped that contains a File with the same 
name as a file that was previously open, the RESET operation will 
erroneously not close that file. This condition can be avoided by 
Qlosing all non-essential files prior to the swap and subsequent 
RESET command. 4 USE command with no filename will close the file 
in USE, a CANCEL command will close any command files that may be 


open. 


Issuing a RESET command when no disk swap has taken place has no 
effect. 
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RESTORE 


RESTORE FROM <file> 


This command reads a file of Memory variables. The file must be 
built using the SAVE MEMORY TO <file> command. All memory 
variables which were defined previous to the RESTORE command are 
deleted by this command. 


Examples: 

+ DISPLAY MEMORY 

ONE (N) 1.0000 

ALFABET (C) ABCDEFGHIJKL 

CHARS (C) ABCDEFGHIJKL NEW STUFF 

*® TOTAL ## 03 VARIABLES USED 00042 BYTES USED 
- SAVE TO MEMPILE 

+ RELEASE ALL 


+ DISPLAY MEMORY 
®® TOTAL #@ 00 VARIABLES USED 00000 BYTES USED 


- RESTORE FROM MEMPILE 


+ DISPLAY MEMORY 


ONE (N) 1.0000 

ALFABET (C) ABCDEFGHIJKL 

CHARS (C) ABCDEFGHIJKL NEW STUFF 

"© TOTAL ## 03 VARIABLES USED 00042 BYTES USED 
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RETURN 


RETURN 


RETURN 


This command is used inside a command file to return control to 
the command file which called it (or to the keyboard if the user 
called the command file directly). Encountering an end of fille on 
a command file 1s equivalent to a RETURN command. 


Command files usually have a RETURN command as their last 
executable line. 


See Appendix A for examples. 
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SAVE TO <file> 


This command stores all currently defined memory variables to a 
file. These memory variables may be restored by the RESTORE 
command. 


Examples: 

+ DISPLAY MEMORY 

ONE (ND 1.0000 

ALFABET (C) ABCDEFGHIJKL 

CHARS (C) ABCDEFGHIJKL NEW STUFF 

#® TOTAL #* 03 VARIABLES USED 00042 BYTES USED 


« SAVE TO MEMFILE 
. RELEASE ALL 


- DISPLAY MEMORY 
** TOTAL *# 00 VARIABLES USED 00000 BYTE USED 


- RESTORE FROM MEMFILE 
- DISPLAY MEMORY 


ONE (N) 1.0000 

ALFABET (C) ABCDEFGHIJKL 

CHARS (C) ABCDEFGHIJKL NEW STUFF 

** TOTAL ## 03 VARIABLES USED 00042 BYTES USED 
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SELECT [PRIMARY ] 
(SECONDARY) 


This command causes dBASE to select one of the two possible 
database areas for future operations. This permits the dBASE user 
to do operations on two databases at a time, such as using the 
data from one database to update the data in another database ,or 
comparing the data in two databases, or any of a number of other 
multi-database operations. 


When dBASE is initiated, the PRIMARY area is active. PRIMARY 
will stay active until a SELECT SECONDARY instruction is given. 
The secondary area will then be active until a SELECT PRIMARY 
command is encountered. A different database may be USE’ed in 
each of the areas. This permits the (nearly) concurrent usage of 
two databases at once. There is no effect if a SELECT SECONDARY 
is entered when the secondary area is already selected or vice 
versa with the primary area. 


When both database areas have databases in USE, field variables 
can be extracted from either area. That is to say, any expression 
can use variables from either database region. If the field names 
in both regions are the same for a desired variable, then the 
variable can be prefixed with a "P." or "S." to denote which 
database it is to come fron. 


dBASE commands that cause movement of the database (i.e. GOTO, 
SKIP, REPORT, SORT, COPY, LIST, DISPLAY (for a scope of more than 
one record), and others) affect only the currently selected 
database. The SET LINKAGE ON command will allow all sequential 
commands (those that have a <scope> parameter) perform 
positioning on both the secondary and the primary databases. (See 
the SET command). The REPLACE command will only affect variables 
in the currently selected database. The DISPLAY STRUCTURE command 
will display the structure of the currently selected database 
only. 


NOTE: USE without a filename closes the file in the area last 
SELECTed. Therefore, if you wish to close both files, you must 
SELECT PRIMARY and then USE; then SELECT SECONDARY and USE. 


If a file is SELECTed for USE in an area without having been 
previously closed, spurious results may occur. 


Examples: 


« USE SHOPLIST 
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« LIST 

00001 Beans 5 0.75 
00002 Bread loaves 2 1.06 
00003 T-Bone steak 4 4.33 
Q0004 Paper plates 1 0.94 
00005 Plastic forks 5 0.42 
00006 Lettuce 2 0.53 
00007 Bleu cheese 1 1.96 
00008 Milk 2 1.30 
00009 Charcoal 2 0.75 


- MOTE SOW OPEN AMOTHER DATABASE IM THE SECOMDARY AREA 
« SELECT SECONDARY 


« USE SHOPCOST 


- LIST 3 

00001 800104 31.38 
00002 800111 45,69 
00003 800118 51.18 
00004 800124 48.19 
00005 800201 55.82 
00006 800209 12.04 
00007 800229 12.04 


- SELECT PRIMARY 


. SOM COST 
12.04 


- SELECT SECONDARY 
. APPEND 
RECORD 00008 


DATE : 800303 
AMOUNT : 12.04 


RECORD 00009 
DATE : (er) 


- SUM aMOUNT 
266.38 


. MOTE BITHER DATABASE'S VARIABLES CAM BE ACCESSED 


. DISP OFF COST, AMOUNT, ITEM, DATE 
0.75 12.04 Charcoal 800303 


. NOTE THE SAME DATABASE CAN BE USED IN BOTH AREAS 


- OSE SHOPLIST 
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SELECT 


IST BE CAREFUL SINCE THE VARIABLE MAMES ARE IDENTICAL 
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SET 
a. SET <parml> [ON ] 


[OFF} 
b. SET <parm2> TO <opt> 


This command changes the configuration of dBASE. SET has two 
forms. Form a allows those parameters that are "toggles" to be 
set on or off; form b allows those parameters that need one of 
the different strings described below to have its default reset. 
Form a parameters and defaults: 


Note: The default values are underlined 


<parml> action meaning 
1. ECHO ON all commands which come from a command 
file are echoed on the screen. 
OFF There is no echo. 
2. STEP ON dBASE halts after the completion of 


each command and waita for the user to 
decide either to go to the next 
command, quit (escape) from the command 
file, or enter a command from the 
keyboard. (STEP is used for debugging 
command files). 


OFF Normal operations are resumed. 
3. TALK ON The results trom commands are displayed 
on the scréen. 
OFF There is no display shown. 
4. PRINT ON Output is echoed to printer. 
OFF The echo is turned off. 
5- CONSOLE ON Output is echoed to the screen. 
OFF Output to the screen is turned off. 
6. ALTERNATE ON Output is echoed to a disk file, 
OFF The echo to the file is turned off 
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7. SCRESN 


8. LINKAGE 


9. COLON 


10. BELL 


11. ESCAPE 


12. EXACT 


OFF 


ON 


Orr 


OFF 


ON 


SET 


Full-screen operations are turned on 
for APPEND, INSERT, EDIT, and CREATE 


Full-screen operations are turned off. 


Makes all sequential commands (LIST, 
REPORT, SUM, 1. @. commands that have a 
<scope> parameter) perform positioning 
on both the PRIMARY and SECONDARY 
databases. 


Makes PRIMARY and SECONDARY databases 
indepondant. 

Bounds GET data items with colons in 

@ coamands. 

Removes colons. 

Bell rings whenever illegal data is 
entered or data boundaries are crossed. 
Bell is turned off. 

An escape character (1B Hex) aborts 
execution of command files. 

There is no escape. 

Requires that character strings match 
completely (except for trailing blanks) 
in expressions and the FIND command. 
Matches will be made on the basis of 


the length of the second string, eg. 
"ABCDEF® = "ABC" is true. 
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13. INTENSITY 


V4. 


15. 


16. 


17. 


18. 


19. 


DEBUG 


CARRY 


CONFIRM 


EJECT 


RAW 


SCREEN 


OFF 


ON 


OFF 


ON 


OFF 


ON 


OFF 


OFF 


OFF 


ON 


OFF 


SET 


Full-screen operations will use dual 
intensity screen characters (normal and 
inverse video on some terminals) 


Dual intensity will not be used. 

Output from the ECHO and STEP commands 
will be sent to the printer so that 
full-screen commands may be checked out 
without the screen becoming cluttered. 
No extra output on the printer. 

Data from the previous record will be 
carried-over when APPENDing records in 
the full-screen mode. 

No carrying will be done. 

GBASE will not skip to next field in 
full-screen editing until a control key 
(like return) is typed. 

GBASE will skip to next field anytime 
too many characters are entered. 
REPORT command will eject a page before 
beginning a new report. 

The page eject will be suppressed. 
Places spaces between fields when the 
DISPLAY and LIST commands are used 
without the fields list. 

Spaces are left off. 


Uses full-screen for EDIT, APPEND, 
INSERT and CREATE commands. 


Turns full-screen capabilities off. 
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SET 


Form b parameters and their formats: 
1. SET HEADING TO <string> 


This form of the SET command saves the <string> internally and 
prints the string as part of the report header line. The <string> 
can be up to 60 characters long. (See REPORT for an example.) 


2. SET FORMAT TO LSCREEN] 
LPRINT} 
(<format file> 


The first two forms of this SET parameter determine where the 
output of "@" commands will go. The last form determines where @ 
commands are READ from. (See the "@" and READ commands.) 


3. SET DEFAULT TO <drive> 


This SET commands makes the specified disk drive into the default 
drive. dBASE will assume that inexplicit file names are on this 
disk drive. This allows command files to be written in such a way 
(conveniently) that referenced files may be on any drive in the 
System. This can also be done with &-macros for further 
generality in disk drive assignment. In the interactive mode of 
dBASE, this SET command permits implicit file names. 


When a default drive has been set, ALL inexplicit filenames are 
set to the dBASE default. This includes form files, command 
files, memory files, format files, index files, text files as 
well as database files. 


The parameter <drive> may or may not have the colon (:) attached, 
that is, both "B" and "B:" are acceptable forms of specifing 
which drive is wanted, 


NOTE: This SET command does not affect the CP/M default drive in 
any way. The dBASE initial default drive is the same as the CP/M 
default drive, the SET DEFAULT redefines dBASE's internal default 
only while within dBASE. 
Example: 

- SBT DEFAULT TO B: 


- USE DATEVSYR (4BASE will access the 'B' drive for 
this database) 
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4. SET ALTERNATE TO (<file>) 


this form of the SET ALTERNATE command is part of a two step 
Process to write everything that is normally written onto the 
screen, onto a disk file as well. This includes output that dBASE 
generates as well as all inputs typed onto the console. This form 
identifies and opens the receiving disk file. If the <file> 
existed on the disk prior to this command, it will be 
overwritten. A subsequent SET ALTERNATE ON begins the echo 
process. 


Example: 


SET ALTERNATE TO B:PRINTFLE 
SET ALTERNATE ON 


any commands 


SET ALTERNATE TO anyfile 

Everything which appears on the screen or printer will be copied 
onto (in this example) B:PRINTFLE.TXT, which can be word 
processed, printed, or saved. 

5. SET DATE TO mm/dd/yy 

The system date can be set or reset at any time with this 
command. It however does not perform date/calendar validation 
like the date request when GBASE is first started. 


SET DATE TO 12,10,76 
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6. SET INDEX TO <index file> {, <index file>, ... <index file>] 


SET INDEX TO identifies and sets up as many as seven index files 
to be used for future operations. If an index file is currently 
in USE when this command is issued then the old index file is 
closed and the new one established. 


Note: when the new index is set up, the database is left 
positioned where it was but, the index does not point anywhere. A 
FIND command or GOTO must be issued to set the index pointer 
before any commands that have a next clause are issued. 


The first index file named is considered the Master Index. All 
FINDs use only this index and the database will be in the Master 
Index order (when skipping). 


A "SET INDEX TO® command (with no index files) will release all 
indexes and the database will be a sequential file. 


7. SET MARGIN TO n 


This form of the SET command allows the user to control the left 
margin when a report is printed. All lines to be printed will be 
offset by n spaces. The n parameter must be a literal number in 
the range 1 to 254. 


SKIP 


SKIP 


SKIP (+)(<exp>} 
(-3 


This command causes the current record pointer to be advanced or 
backed up relative to its current location. 


Example: 


- USE INVNTRY1 


. LIST 

00001 136928 13 1673 ADJ. WRENCH 7.13 189 9 () 9.98 
00002 221679 9 1673 SH. HAND SAW 5.17 173 rt 1 7.98 
00003 234561 0 96 PLASTIC ROD 2.18 27 W200 «453 4.75 
00004 556178 2 873 ADJ. PULLEY 22.19 117 3 O 28.50 
00005 723756 73 27 ELECT. BOX 19.56 354 6 1 29.66 
00006 745336 13 27 FUSE BLOCK 12.65 63 1 2 15.95 
00007 812763 2 1673 GLOBE 5.88 112 5 2 7.49 
00008 876512 2 873 WIRE MESH 3.18 45 T 3 4.25 
00009 915332 2 1673 FILE 1.32 97 7 3 1.98 
00010 973328 © 27 CAN COVER 0.73 21 17 5 0.99 
5 

. SKIP -2 


RECORD: 00003 


- SKIP 
RECORD: 00004 


- SKIP 3 
RECORD: 00007 
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SORT 


SORT 


SORT ON <field> TO <file> (ASCENDING } 
(DESCENDING j 


This command allows the user to sort data files to another file 
which is different from the original file. The file in USE is 
sorted on one of the data fields and may be sorted into ascending 
or descending order. Notice that the USE file remains in USE and 
is unaltered. 


While the SORT command allows only one key, a database may be 
sorted on several keys by cascading sorts: sort on the most sinor 
key first and progress toward the major key. dBASE will only 
disturb the order of records when necessary. The collating 
sequence for character fields is the ASCII code. ASCENDING is 
assumed if neither ASCENDING or DESCENDING is specified. 


The sort uses the ASCII collating sequence. This means that the 
string 'SMITH' 1s "smaller" than ‘Smith' (the expression "'SMITH' 
< 'Smith' would be TRUE). 


The INDEX command is contrasted with the SORT command in this 
way: INDEX, when done, performs nearly all of SORTs dutys. Also, 
INDEX generally allows greater freedom and greater speed than 
SORT. 


» USE SHOPLIST 


- LIST 

00001 BEANS #303 CAN 
00002 BREAD LOAVES 
00003 T-BONE STEAKS 
O0004 PAPER PLATES 
00005 PLASTIC FORKS 
00006 LETTUCE 

00007 BLEU CHEESE 
00008 MILK (1/2 GAL) 
00009 CHARCOAL, 5¢# BAGS 


5 oc ee 


° 


NN eH Nua eN 
oem--0o00W00 
. 

NVwWoOU FOOD? 
MODWUNASAU 


. SORT OM ITEM TO SORTFILE 
SORT COMPLETE 


+ USE SORTFILE 
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BEANS #303 CAN 
BLEU CHEESE 
BREAD LOAVES 
CHARCOAL, 5# BAGS 
LETTUCE 

MILK (1/2 GAL) 
PAPER PLATES 
PLASTIC FORKS 
T-BONE STEAKS 


FUN NNN =U 


0.75 
1.96 
0.97 
0.75 
0.53 
1.30 
0.86 
0.42 
3.94 


SORT 
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STORE 


STORE <exp> TO <memvar> 
This command computes the value of an expression and stores the 
value into a memory variable. If the memory variable did not 


exist before this command was issued then dBASE will create the 
momory variable automatically. 


Mote that STORE will alter only momory variables. Use the REPLACE 
command to change database field variables. 


- RELEASE ALL 


. STORE 1 TO OME 
1 


» STORE ‘ABCDEPGHIJEL' TO ALFADET 
ABCDEFGHIJKL 


« STORE ALFABET+' MEW STUFF’ TO CHARS 
ABCDEFGHIJKL NEW STUFF 


. STORE OWE®1.0000 TO ONE 


1.0000 
- DISPLAY MEMORY 
EOF (L) .T. 
ONE (HN) 1.0000 
ALFABET (C) ABCDEFGHIJKL 
CHARS (C) ABCDEFGHIJKL NEW STUFF 
* TOTAL #® O04 VARIABLES USED 00042 BYTES USED 
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SUM 


SUM 


SUM <field> (,<field>j (TO <memvar 1ist>j 
[<scope>] [FOR <exp>j 


The SUM command adds numeric expressions involving the USE file 
according to the <scope> and FOR clauses. Up to 5 expressions may 
be simultaneously summed. If the TO clause is present, the sums 
are also stored into memory variables (memory variables will be 
created if they didn't exist prior to the issuance of the sun 
command). The default scope of SUM is all non-deleted records. 


+ USE SHOPLIST 


« Bist 

00001 BEANS #303 CAN 5 0.75 
00002 BREAD LOAVES 2 0.97 
00003 T-BONE STEAKS 4 3.94 
00004 PAPER PLATES 1 0.86 
00005 PLASTIC FORKS 5 0.42 
00006 LETTUCE 2 0.53 
00007 BLEU CHEESE 1 1.96 
00008 MILK (1/2 GAL) 2 1.30 
00009 CHARCOAL, 5# BAGS 2 0.75 
- SUM COST 

11.48 

+ SOM COST FOR MNO=1 

2.82 

+ SUM COST,NO 

11.48 24 

+ SUM COST TO MSUM 

11.48 

+ ? MSUM 

11.48 

+ DISPLAY MEMORY 
MSUM (N) 11.48 

©* TOTAL ® 01 VARIABLES USED 00006 BYTES USED 


- ? MSOM#1.10 
12.6280 


+ SUM MNOfCOST,NO,COST,COST/O 
31.53 24 11.48 5.81 
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TOTAL ON <key> TO <database> [FIELDS <list>] (FOR <expression>] 


The TOTAL command is similar to the subtotal capability in the 
REPORT command except that the subtotals are placed into a 
database instead of printed. This allows condensation of data by 
eliminating detail and summarizing. 


Note: the USE database must be either presorted by the key or 
indexed on the key. 


If the TO database was defined (if 1t existed and had a 
structure), then it's structure will be left intact and used to 
decide which fields will be totalled arithmetically. 


If the TO database did not exist prior to this TOTAL command, 
then the structure will be constructed using the field names 
given by the FIELDS phrase. If there is no FIELD phrase then the 
Structure from the USE database will be copied to the TO file. 


This command is most selective when the TO database exists and 
the FIELD phrase is included in the command. In this case, only 
the numeric fields in the FIELDS are totalled. In any other 
configuration of this command, all numeric fields are totalled. 


TOTAL can also be used to remove duplicate records from a 
database since a non-numeric field in the FIELDS list is not 
totalled (naturally) and is not flagged as an error. 


Example: 


- USE ORDERS IMDEY ORDERS 


- DISPLAY STRU 

STRUCTURE FOR FILE: ORDERS.DBF 
NUMBER OF RECORDS: 00008 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 CUSTOMER c 020 
002 PART:NO c 005 
003 AMOUNT N 005 
®* TOTAL ## 00031 
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+ LIST 
00003 
00007 
00001 
00005 
00008 
00002 
00006 
00004 


HARRIS, ARNOLD 
JUAN, DON 
SWARTZ, JOE 
MACK, JAY 
SALT, CLARA 
SWARTZ, JOE 
TERRY, HANS 
ADAMS, JEAN 


11528 
21828 
31415 
31415 
70296 
76767 
76767 
89793 


4y 
5 
13 
3 
9 
13 
5 
12 


TOTAL 


(Imagine that the warehouse needs to know how many of each item 
to bring out. By totaling on the quantity as long as the part 


numbers are the same, a database is generated that 
Part numbers and the number needed) 


(The database CALLS has already been defined) 


+ TOTAL OM PART:MO TO CALLS 
00006 RECORDS COPIED 


- USB CALLS 

- DISP STRU 

STRUCTURE FOR FILE: CALLS.DBF 
NUMBER OF RECORDS: 00006 
DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 

FLD NAME TYPE WIDTH DEC 
001 PART:NO c 005 
002 AMOUNT N 005 
** TOTAL *# 00011 

- LIST 

00001 11528 4y 

00002 21828 5 

00003 «31415 16 

00004 70296 9 

00005 76767 18 

00006 89793 12 


(Note: two orders totaled) 


contains 


(Note: two other orders totaled) 
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UPDATE 


UPDATE FROM <database> ON <key> {ADD <field list>j 
LREPLACE <field list>) 


The UPDATE command revises the USE file by using data froma 
Second database to modify the USE database. Updated items can be 
Summed or replaced in entirety. A record is updated when the 
eriterion is met by the comparison of a field in the USE database 
with one from the FROM database. These fields are known as the 
Key and are supplied with the ON phrase. 


Note: the USE database must be either pre-sorted by the key or 
indexed on the key. The FROM database must be pre~sorted by the 
key. 


Both databases are 'rewound' and a record is read. If the keys 
match, the add or replace action takes place as directed. If the 
key in the USE file is smaller (in sort sequence) than the key in 
the FROM database, then no action takes place, and the record is 
skipped and left unchanged. Similarly, if the FROM key is 
Smaller, no updates happen and that record is skipped. 


Example: 
- USS INVUPDAT 


+ DISPLAY STRUCTURE 

STRUCTURE FOR FILE: INVUPDAT.DBF 
NUMBER OF RECORDS: 00003 

DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
001 PART:NO Cc 005 

002 OW: HAND N 005 

003 COST N 010 002 
8@ TOTAL @8 00021 

» LIST 

00001 21828 77 35.88 


00002 70296 0 250.00 
00003 89793 2  134999.00 


{Motice that the database is sorted on the "key" PART:NO.) 
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- USE INVENTRY DMDEX LNVENTRY 


- DISPLAY STRUCTURE 
STRUCTURE FOR FILE: INVENTRY 


NUMBER 


OF RECORDS: 00008 


DATE OF LAST UPDATE: 00/00/00 
PRIMARY USE DATABASE 


. DBF 


FLD NAME TYPE WIDTH DEC 
001 ITEM Cc 020 

002 COST N 010 002 
003 PART: BO c 005 

004 Ou: HAND uN 005 

®@ TOTAL #@ 00041 

- DISP ALL 

00008 #9 COAL - 22.00 
00005 SDK, KITCHEN 34.72 
00001 TIME STITCH 9.99 
00002 WIDGET 1.67 
00007 RINGS, GOLDEN 200.00 
00006 TROMBONES 198.37 
00004 TANK, SHERMAN 134999.00 
00003 GADGET, LARGE 16.33 


(Again notice that the database 1s indexed on the "key" PART:NO.) 


11528 
21828 
24776 
31415 
70296 
76767 
89793 
92653 


UPDATE 


+ UPDATE OM PaRT:MO FROM LSVUPDAT ADD ON:HAND REPLACE COST 


. LUST 
00008 
00005 
00001 
a0co2 
00007 
00006 
00004 
00003 


(Note--the 


#9 COAL 

SINK, KITCHEN 
TIME STITCH 
WIDGET 

RINGS, GOLDEN 
TROMBONES 
TANK, SHERMAN 
GADGET, LARGE 


with the new prices.) 


22.00 
35.88 
9.99 
1.67 
250.00 
198.37 
134999.00 
16.33 


11528 
21828 
24776 
31415 
70296 
76767 
89793 
92653 


16 
154 


1 
18 
5 
76 
7 
1 


two new Sherman tanks were added to the database and 
the cost of the golden rings and the kitchen sinks were replaced 
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USE [<database file>) 


USE <databasefile> INDEX <index file> [, <index file>, ... <index file>} 


Example: 
- USE DATABASE DMDEX NAME, CITY, PART:NO,SALESHAN 


The USE commard specifies which (pre-existing) database file is 
to be the file in USE, If there was a USE file prior to this 
command, the old file is closed. If a filename is not specified 
in the command, then the previous USE file is closed. 


The second form of USE is to specify a database for operation and 
an associated index file (which was previously created by the 
INDEX command or the SET INDEX TO <index file> command) and 
permits subsequent index operations such as FIND and indexed 
sequential file access, 


Up to seven index files may be USEd with any one database at the 
same time, The first index file named is considered as the Master 
Index. All FINDs use only this index and the database will be in 
the Master Index order (when skipping). All of the named index 
files will be automatically updated anytime their keys are 
modified (by APPEND, EDIT, REPLACE, READ, or BROWSE commands). 
Examples: 

» USE EXAMPLE 


. USE TRACE DEX TRACE 
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WAIT 


WAIT 


WAIT [TO <memvar>) 


This command causes dBASE to cease operations until any character 
is entered from the keyboard, the message WAITING is displayed on 
the screen. If the TO clause is specified, then the single 
keystroke that releases dBASE from the wait-state will be entered 
into the memory variable 


The TO option is most useful when only a single character is 
required to direct the action of a command file process e.g. menu 
selections. Notice that a carriage return 1s not necessary to 
"send" the character as in the ACCEPT and INPUT commands. 


If any non-printable character (i.e. RETURN, LINE FEED, or any 


other control character) is typed as the response to a WAIT TO 
command, the value of the memory variable is set to a blank. 


Example: 
« RELEASE ALL 


- WAIT TO ACTION 
WAITING 1 


- DISP MEMO 
ACTION (N) 1 
®8 TOTAL ## 01 VARIABLES USED 00006 BYTES USED 
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APPENDIX A COMMAND FILE EXAMPLE 


The following is one example of how command files may be used in 
a practical environment. In this example, the command files are 
used like a program written in a more classical language. Command 
files can contain groups of commands which perform some smaller 
function e.g. a series of SORT's. 


This example is a simple checkbook balancing and check register 
Maintenance system. It consists of 4 command files: the 
controlling file, MENU, and three subordinate files, NEWENTR, 
CANCELS, and BALANCE. This problem solution could be structured 
in many different ways; here, this example has been structured to 
show the dBASE commands that deal especially with command files. 


The command files were created by a text editor using the type 
".CMD" in order to facilitate their usage. The sample run is an 
actual output of dBASE using the SET ALTERNATE technique. Refer 
to the SET command for this technique. 


In solving any database problem, one should first consider what 
data fields will be required. For this example, the following 
. fields were selected: 


NO = the check number 

TO - the recipient of the check 

AMT - the dollar amount of the check 

CAN - the cancelled/not-cancelled status of a check 
DATE - the date on which the check was written 


dBASE is then entered to CREATE the database structure. 


« CREATE 

FILENAME: CHECKREG 

ENTER RECORD STRUCTURE AS FOLLOWS: 
FIELD NAME,TYPE,WIDTH,DECIMAL PLACES 


001 WO,N,4 

002 T0,C,30 
003 AHT,N, 10,2 
004 Ca,L 

005 DATE,C, 10 
006 (cr) 


INPUT NOW? 


yb 


A text editor is then executed and the following command file 
sources are entered: 


First the MENU command file; 
MOTE - Example dBASE Command file program 


SET TALK off 
USE CHECKREG 
DO WHILE T 
? 
2 
2 
2 Checkbook Balancer Menu' 
2 
? 
we 0 - EXIT’ 
2! 1 + Enter New Checks’ 
i 2 = Enter Cancelled Checks’ 
et 3 - Balance’ 
? 
2?‘ enter desired action’ 


WAIT TO ACTION 
IF ACTION<'O' 
SET TALK on 
CANCEL 
ENDIF 
IF ACTION='1' 
DO NEWENTR 
ENDIF 
IF: ACTION='2' 
DO CANCELS 
ENDIF 
IF ACTION='3' 
DO BALANCE 
ENDIF 
ENDDO 
RETURN 
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Second the NEWENTR command file 


NOTE - NEWENTR Command File to Enter New Checks 
2 


HEMARK Enter Check Number of 0 to Exit 
DO WHILE T 
? 
? 
INPUT "Enter Check Number " to C3NO 
IF C:NO=0 
RETURN 
ENDIF 
? 
ACCEPT "Paid to Order of " to C:TO 
INPUT "Amount of Check " to C:AMT 
ACCEPT "Date of Check "to C:DAT 
? 
INPUT "Are all fields correct 7 " to GO:NOGO 
IF .NOT.GO:NOGO 
LOOP 
ENDIF 
APPEND BLANK 
REPLACE NO with C:NO, TO with C:TO, AMT with C:AnT, DATE 
with C:DAT, CAN with F 
ENDDO 


WT 


Third the CANCELS command file 


NOTE - CANCELS Command file to enter cancelled checks 
® 
REMARK Enter Check Number of O to Exit 
DO WHILE T 
? 
INPUT “Enter Cancelled Check no " to C:CAN 
IF C:CAN=0 
RETURN 
ENDIF 
GO TOP 
LOCATE for C:CAN=NO 
REPLACE CAN with T 
ENDDO 
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Last the BALANCE command file 


NOTE - BALANCE Command File to Balance Checkbook 
a 


SUM AMT to OUTSTAND for .NOT.CAN 
? 
? 
DISPLAY off ‘Total Outstanding Checks = $',OUTSTAND 
? 
REMARK Enter Qutstanding Deposits, Enter 0 to Proceed 
STORE T to ACTIVE 
STORE 1 to COUNT 
STORE 0 to T:0UT 
OO WHILE ACTIVE 
STORE STR(COUNT,3) to I 
INPUT ‘Enter Amount of Outstanding Deposit 4&1 ' to D:0UT 
IF D:OUT=0 
STORE F to ACTIVE 
ELSE 
STORE D:OUT+T:OUT to T:OUT 
STORE COUNT+1 to COUNT 
ENDIF 
ENDDO 
DISPLAY OFF COUNT-1,' Total Outstanding Deposits Total = $',T:0UT 
? 


INPUT "Enter Ending Balance" to BEGIN 

DISPLAY OFF "Current Balance = $',BEGIN+T:OUT-OUTSTAND 
WAIT 

RETURN 
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A sample run of these command files follows: 


- DO MENU 


Checkbook Balancer Menu 


EXIT 

- Enter New Checks 
Enter Cancelled Checks 
- Balance 


wn=o 
' 


enter desired action 
WAITING 1 
Enter Check Number of 0 to Exit 


Enter Check Number 31000 

Paid to Order of 3:ACME Rentals 
Amount of Check 2123.85 

Date of Check 210 Jun 79 


Are all fields correct ? :y 


Enter Check Number 31001 
Paid to Order of 3 
Amount of Check 379.88 
Date of Check 212 


Are all fields correct ? :y 


Enter Check Number 31002 

Paid to Order of sRadon Inert Gases 
amount of Check 386.86 

Date of Check 313 Jun 79 


Are all fields correct 7 ty 
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Enter Check Number 31003 


Paid to Order of 


Amount of Check 3723-31 

Date of Check 314 Jun 79 
© Are all fields correct ? sy 

Enter Check Number 31004 

Paid to Order of :Crankshaft Auto 

Amount of Chech 1275347 

Date of Check 319 Jun 79 


Are all fields correct 7 sy 


Enter Check Number 30 


Checkbook Balancer Menu 


O - EXIT 
1 - Enter New Checks 
2 - Enter Cancelled Checks 


3 - Balance 
enter desired action 
WAITING 2. 
Enter Check Number of 0 to Exit 


Enter Cancelled Check no :1001 
Enter Cancelled Check no :1003 


Enter Cancelled Check no :0 


Checkbook Balancer Menu 


EXIT 

- Enter New Checks 
Enter Cancelled Checks 
- Balance 


Wn 
1 


enter desired action 
WAITING 3 
Total Outstanding Checks = $ 2963.75 


oO Enter Outstanding Deposits, Enter 0 to Proceed 
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Enter Amount of Outstanding Deposit 1 31234.56 
Enter Amount of Outstanding Deposit 2 3.03 
Enter Amount of Outstanding Deposit 3 3333-44 
Enter Amount of Outstanding Deposit 30 

3 Total Outstanding Deposits Total = $ 1568.03 


Enter Ending Balance: 1445.89 
Current Balance = $ 50.14 
WAITING 


Checkbook balancer Menu 


- EXIT 

- Enter New Checks 

- Enter Cancelled Checks 
~ Balance 


wn=o 


enter desired action 
WAITING O 
DO CANCELLED 


At this point, the user could easily do direct dBASE commands to 
interrogate, modify, or report on the database file. For instance 
the commands: 


DISPLAY DATE,AMOUNT for NO=10035 

or 

SUM AMT for DATE>'01 Jun' 

or any other dBASE commands could be issued to provide 


information as needed to accommodate unforeseen circumstances in 
the course of managing a checkbook. 
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APPENDIX B LIST OF COMMANDS 


? <exp> {,<exp>) 
@ <aoordinates> (SAY <exp> (USING "<pioture>'jj (GET 


<variable> (PICTURE '<picture>! j] 

ACCEPT i"<cstring>"j TO <manvar> 

APPEND (FROM <file> i(SDFj (DELIMITED) {FOR <exp>j] 
or (BLANK ] 

BROWSE 

CANCEL 

CHANGE FIELD <list> {<scope>j (FOR <exp>) 

CLEAR (GETS] 

CORTIMUE 


COPY TO <file> (<scope>] (FIELD <list>] LFOR <exp>] 
(SDF) (DELIMITED (WITH <delimiter>]} or i STRUCTURE] 

COUNT i<scope>; (FOR <oxp>j (TO <manvar>j 

CRATE (<filename>) 

DELETE i<scope>) (FOR <exp>) 

DELSTE FILE <file> 

DISPLAY (<scope>} (FOR <exp>j i<exp list>) (OFF) 

DISPLAY STRUCTURE 

DISPLAY MEMORY 

DISPLAY FILES (ON <disk drive>) (LIKE <skeleton>] 

DO <file> 

DO WHILE <exp> 

EDIT 

EJECT 

ELSE 


ENDDO 
ENDIF 
ERASE 
FIND <key> 

GO or GOTO (RECORD), or (TOP), or (BOTTOM), <n> 

IF <exp> 

INDEX ON <char string expression> TO <index file name> 
INPUT ("<estring>"] TO <memvar> 

INSERT (BEFORE), or i BLANK] 

JOIN TO <file> FOR <expression> (FIELDS <field list>] 
LIST 

LOCATE i<scope>) (FOR <exp>j 

Loop 

MODLFY STRUCTURE 

MODIFY COMMAND <command file> 

NOTE or *® 

PACK 

QUIT (TO <list of CP/M level commands or .COM files>j 
READ 

RECALL (<scope>j (FOR <exp>) 


RELEASE (<memvar list>], or (ALL] 

REMARK 

RENAME <current file name>? TO <new file name> 

REPLACE i<scope>] <field> WITH <exp> cAND <fLeld> WITH <exp>) 
oO REPORT i<scope>] (FORM <form file>} (TO PRINT] LFOR <exp>] 

RESET 
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SAVE TO <file> 

(PRIMARY or SECOMDARY} 

<parm> (OM), or (OFF) 

ALTERMATE TO <file> 

DEFAULT TO <drive> 

DATE TO <atring> 

FORMAT TO <format file name> 

HEADUSG TO <string> 

IWDEX TO <index file> 

MARGIN TO <n> 

SKIP <o/-> [<a>] 

SORT OM <field> TO <file> (ASCEMDING], or (DESCENDING } 

STORE <exp> TO <eeavar> 

SUH <f1eid> i<acope>] (TO <memvar list>] (FOR <exp>j 

TOTAL TO <file> OM <key variable> (FIELDS <field Llist>) 

UPDATE FROM <file> OW <key variable> {ADD <field list>j 
(REPLACE <f4eld list>} 

USE <file> (INDEX <index file aame>] 

WAIT (TO <meavar>) 


CELE LELE 
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* 


FUNCTIONS: 


@(<string1>,<string2>) 
a 


# . 

t(<ehar string>) 

$(<ehar string>,<start>,<length>) 
<string 1>$<string2> 

CHR(<numeric expression>) 

DATE() 

EOF 

FILE(<file>) 

INT(<numeric expression>) 
LEX(<char string>) 


AT function 

deleted record fune 
record number func 
upper case function 
substring function 
substring search 
numeric to ASCII 
system date func 
end-of-file func 
existance func 
integer function 
length function 


STR(<numeric expression>,<width>/{ ,<decimais>]}) string func 


VAL(<char string>) 
TRIN(<char string>) 
TYPE(<exp>) 


value function 
trims strings 
supplies data type 
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APPENDIX © 


number of fields per record .... = 
number of characters per record .. « 
number of records per database .. . 


number of characters per character string 


accuracy of numeric fields ..... 
largest number 2... ew ee ee es 
smallest number... 2. 2. 2. 2 sae 

number of memory variables ... + - 
number of characters per command line 
number of expressions in SUM command 
number of characters in REPORT header 
NMumber of characters in index key . . 
number of pending GETS . 2. 2 « 6 «© « 
number of files open at one time .. 


1.8 
1.0 x 10#8-63 


LIMITATIONS AND CONSTRAINTS 


- . 32 
» 1000 
05535 
. 254 
a # 10 
108963 


max 
max 
max 
max 
digits 
approx 
approx 
wax 
max 
max 
max 
max 
max 
max 
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oO 


APPENDIX D ERROR MESSAGES 
BAD DECIMAL WIDTH FIELD 


BAD FILE NAME 
Syntax error in filename. 


BAD NAME FIELD 


BAD TYPE FIELD 
Must be C, N, or L. 


BAD WIDTH FIELD 


CANNOT INSERT ~- THERE ARE NO RECORDS IN DATABASE FILE 
Use the APPEND command instead. 


CANNOT OPEN FILE 
Internal error, contact dealer for support. 


COMMAND FILE CANNOT BE FOUND 
Check spelling. 


DATA ITEM NOT FOUND 


DATABASE IN USE IS NOT INDEXED 
FIND is only permitted on indexed databases. 


DIRECTORY IS FULL 
The CP/M disk directory cannot hold anymore files. 


DISK IS FULL 

END OF FILE FOUND UNEXPECTEDLY 
The database in USE is not in the correct format. If all 
records are correct and present, then PACK and re-INDEX the 
database. 

"FIELD" PHRASE NOT FOUND 

FILE ALREADY EXISTS 

FILE DOES NOT EXIST 


FILE IS CURRENTLY OPEN 
Type a USE or CLEAR command to close the file. 


FORMAT FILE CANNOT BE OPENED 
FORMAT FILE HAS NOT BEEN SET 
ILLEGAL DATA TYPE 


. ILLEGAL GOTO VALUE 


ILLEGAL VARIABLE NAME 
Only alphanumerics and colons are allowed in variable and 
field names. 

INDEX DOES NOT MATCH DATABASE 
dBASE cannot match the key with the database. Try another 
index file. 


INDEX FILE CANNOT BE OPENED 
Check spelling or INDEX the database. 


JOIN ATTEMPTED TO GENERATE MORE THAN 65,534 RECORDS 
The FOR clause allows too many joined output records, make it 
more stringent. 

KEYS ARE NOT THE SAME LENGTH 


MACRO IS NOT A CHARACTER STRING 
amacros must be character strings. 


MORE THAN 5 FIELDS TO SUM 
NESTING LIMIT VIOLATION EXCEEDED 
NO EXPRESSION TO SUM 

“FOR® PHRASE 


“FROM™ PHRASE 


BE & 


Noe a diagnostic type message than an error message. dBASE 
couldn't find the key. 

NON-NUMERIC EXPRESSION 

NONEXISTENT FILE 

"ON" PHRASE NOT FOUND 


OUT OF MEMORY FOR MEMORY VARIABLES 
Reduce the number or size of memory variables. 


RECORD LENGTH EXCEEDS MAXIMUM SIZE (OF 1000) 


RECORD NOT IN INDEX 
Index file was not updated after a record was added. Reindex. 


RECORD OUT OF RANGE 
Record number greater than number of records in database. The 
Record doesn't exist. 


SORTER INTERNAL ERROR, NOTIFY SCDP 
Internal error, contact dealer for support. 


SOURCE AND DESTINATION DATA TYPES ARE DIFFERENT 
®@® SYNTAX ERROR #6# 

SYNTAX ERROK IN FORMAT SPECIFICATION 

SYNTAX ERROR, RE-ENTER 

"TO" PHRASE NOT FOUND 

TOO MANY CHARACTERS 


TOO MANY FILES ARE OPEN 
There is a maximum of 16 files allowed to be open at one time. 


TOO MANY MEMORY VARIABLES 
There 13 a maximum of 64 memory variables. 


TOO MANY RETURNS ENCOUNTERED 
Probably an error in the structure of a command file. 


"WITH" PHRASE NOT FOUND 


UNASSIGNED FILE NUMBER 
Internal error, contact dealer for support. 


#88 UNKHOWN COMMAND 


VARIABLE CANNOT BE FOUND 
Need to create the variable, or check the spelling. 


INDEX 
Keyword 


? 

@, command 
function 

e 

¢ 

t 

$, function 
operator 

ACCEPT 


CLEAR 
CONTINUE 
copy 
COUNT 
CREATE 
DATE 
DELETE 
DISPLAY 
DO 
EDIT 
EJECT 
ELSE 
EMDDO 
ENDIF 
EOF 
ERASE 
FILE 
FIND 
Go (GOTO) 
IF 
INDEX 
INPUT 
INSERT 
INT 
JOIN 
LEN 
LIST 
LOCATE 
LOooP 
MODIFY 
NOTE 
PACK 
QUIT 
READ 


Keyword 


RECALL 
REINDEX 
RELEASE 


ALTSRNATE 
DATE 
DEFAULT 
FORMAT 
HEADING 
INDEX 
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CHANGES 


Summary of command and usage changes 
between dBASE II version 2.02 and version 2.3 


Please read carefully. Some command changes will prevent existing 
2.02 command files from running properly. Changes in the INDEX 
command are especially significant. GOTO BOTTOH of an indexed 
file now places the pointer differently. Also, the Oth line on 
the screen is now reserved. 


Unless you are engaged in new program development , or have a 
specific need for the enhanced features of version 2.3, there is 
neo need to alter an operating data system. 


1. INDEX command 


USE <database> IMDEX <index-file list> 
SET INDEX TO <index-file list> 


aBASE now automatically maintains up to 7 index files for the 
database in USE (doth PRIMARY and SECONDARY). The index files 
listed will be automioally updated when new records are added 
or data fields changed by EDIT, REPLACE, INSERT, BROWSE, or 
APPEND commands. 


The indexes must be created separately by the usual ‘INDEX ON 
<field> TO <index file>' sommands. . 


The first index named in the index-file list is the Master Index. 
The Master Index will be the referance for any FIWD commands 

and for determining the sequence of records. Do not adit the 

key field upon which the Master Index was created. The Master 
Index can be changed by 'SET INDEX TO <new order index-file list>’. 


A 'SET INDEX TO' command (with no index-file names) will release 
all index files from the database file in USE. Every Index file 
in the index file list represents one nested level. Hence a 
maximum of seven index files may be updated simultaneously. 


Example: 
USE INVENTRY IWDEX PARTNO, LOCATION, SUPPLIER 


USE CUSTOMER 
SET INDEX TO CUSTNAME, CUSTZIP, CUSTACCT 


2. GOTO AND EDIT IN INDEXED PILES © 


The GOTO and EDIT commands position the index structure as well 
as positioning to the indicated record. In the edit command, a 
Gontrol-R or control-C will give the next or previous indexed 
record. In earlier versions of dBASE II these two commands 
worked independently of the index. 


3. IMDEX UPDATE AFTER EDIT OR REPLACE 


The EDIT and REPLACE commands will delete a. record from the 

index file and re-enter a new index entry if the key field 

(or fields) are altered. The index files must be in USE with 

the database or called with a SET INDEX TO <index fileS> command. 


4. INDEXED FILES MAY BE PACKED 
Tne PACK command now works with indexed files. Like the EDIT 
and REPLACE restriction, only the index file in USE will be 


updated. For large databases, the recommended technique is to 
PACK the database file without indexes and then index again. 
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5. GOTO BOTTOM OF INDEX FILE 


GOTO BOTTOM in an indexed database now positions to the last 
indexed record (and not to the last physical record as before). 


O. MODIFY COMMAND 


MODIFY COMMAND <command-file name> allows '.CMD' files (dBASE 
command files) to be edited from within dBASE. This command 

Will help speed writing and editing of command files during 
Program development. MODIFY COMMAND allows the usual full-screen 
editing keystrokes. Control-T deletes a line, control-N inserts 
a blank line. There is a limit to the editor's buffer, so 

always work from the top of the file down. Do not move upwards 
while editing command files. 


7. BROWSE 


The new BROWSE command displays up to 19 records and as many 
fields as will fit on the screen. Records will appear to 
extend past the right limit of the screen. A control-B will 
Scroll the ‘window’ right for viewing more fields. A control-Z 
scrolls left. Contents of the fields in view may be edited 
using full-screen cursor keystrokes. The BROWSE command must 
seen to be appreciated. 


8. CONTROL KEY CHANGES 


In all full-screen cursor control commands, control-A has the 
same effect as control-E; control-F now has the same effect as 
control? -X. 


9. CLEAR GETS 


A CLEAR GETS command removes all pending GETS internally without 
altering the screen (as the ERASE command would). This will 
limit the domain of a READ to only those GETS issued after 

the CLEAR GETS command. The accumulation of unwanted GETS can 
thus be eliminated. The ERASE command also clears pending GETS. 


10. DO CASE 


DO CASE 

CASE <logical expression> 
OTHERWISE 

ENDCASE 


DO CASE is a new programming structure intended to simplify 
coding for many application, especially those which result in 
"cascading IF's". Unlike many programming languages, the 
GBASE's DO CASE command will allow any logical expression, not 
just a defined variable, to be used in the individual CASEs. 
The OTHERWISE option is not required, and is enacted only when 
none of the CASE statements apply. Only the first CASE whose 
expression is true will be executed... Even if succeeding CASE 
expressions are true, processing will skip to the first command 
after the ENDCASE command. 


Example: 


DO CASE 


any statements 


CASE APPLES = ORANGES we) 
any statements 
CASE ZIP > 9000 .AND. ZIP < 95000 


any statements 


OTHERWISE 


any statements 
ENDCASE 
11. WHILE CLAUSE 


Any commands which allow the 'FOR <expression>' phrase will now 
allow a 'WHILE <expression>', with the exception of the LOCATE 
command. The WHILE phrase acts like an infinite NEXT phrase, 
processing until a record is encountered which makes the WHILE 
expression false. The database will be left positioned in that 
record. 


Examples: 


USE <filename> e 
® ba sure to locate the record pointer in the first 


# record for which the While expression is true 
REPORT FORM DETAIL WHILE ACCT:CODE = CURNT:CODE 
COUNT TO MO:OF:ZIPS WHILE ZIP < STOPZIP 

LIST WHILE PART:NO = PART .AND. QTY: ONHAND > MINIMUM 
COPY TO SELECT WHILE ALLOY = "FE/MN/C"™ 

REPLACE COST WITH COST ® 1.10 WHILE PRICE # STABLE 


12. LOCATE/CONTINUE IMPROVED 


It is now possible to write commands with optional expressions 
between a LOCATE and a succeeding CONTINUE. (Optional express?- 
dons being FOR, TO, <scope>, WHILE5). The expression in the 
LOCATE command is now stored away so that CONTINUE can pick up 
correctly. NOTE: Any command with an optional expression that 

is exeouted between a LOCATE and a CONTINUE cannot have more 

than 126 characters in its expression. The limit is normally 

254 characters total for any command. 


13. COPY TO, DELIMITED ENHANCED 


The COPY command when written with the DELIMITED clause now 
recognizes a "," as a special delimiter. This command is used 


to create non-dBASE datafiles (usually with a .TXT extension). 
Copied fields are separated by single commas; character fields 


are bDlank-trimmed on the trailing side. Numeric fields are 
dlank-trimmed on the leading side. 

This modification allow further compatibility with other 
languages and text processors, especially Wordstar Mailmerge. 


TH. FILE EXTENSION FOR FOREIGN FILES 


The default filename extension for foreign files created by 

COPY, or brought over to dBASE by APPEND, is now '.TXT’. In 
earlier versions the default value was '.DBF' which created 

confusion since then not all DBF files were dBASE-structured 
datafiles. 


15. COPY STRUCTURE EXTENDED TO <filename> 


This command copies the structure of the database file in USE 
to the specified database as records. The structure may then 
be examined during program execution. This feature will not 
be available for incorporation onto the Run Time disk. 


Example: 


USE TEST 

COPY STRUCTURE EXTENDED TO TEST! 

LIST 

* The structure of TEST.DBF will now be the data 
® contents of File TEST1.DBF, and therefore 

® available for examination. 


16. CREATE <filename> FROM <filename> 


This command creates a new file by reading the structure from the 
records of specified file. The contents of the FROM file may be 
input by the COPY STRUCTURE EXTENDED command (see above), or by 
the usual data entry methods. This feature will not be available 
for incorporation onto the Run Time disk. 


Continuing the Example above: 


CREATE TEST2 FROM TEST1 

USE TEST2 

DISPLAY STRUCTURE 

® Structure of TEST2.DBF will be the 
@# same as our original TEST.DBF. 


17. TEST COMMAND 
TEST allows the programmer to check a user-typed expression to 


make sure that it will not generate a syntax error upon execution. 
Interruptions in program flow can thus be avoided. 


Example: 


If 0 = TEST(expression) 

TAKE CORRECTIVE ACTION; EXPRESSION IS BAD 
ELSE 

GO AHEAD; EXPRESSION IS OK 


ENDIF 
If the expression is ok, TEST returns to a non-zero value. if Oo 
bad, TEST returns a zero. The test must be performed like this 
because if the expression is bad, the parser may not be able to 
fully test the expression without being injured. This condition 
will force a zero to TEST and the parser wili be protected. 


18. FILE FUNCTION 


The FILE function allows one to see if a given file axists on the 
disk or not. The value of this function is .T. (true) if the 

if the named file exists, and .F. (false) if it does not. This. 
is useful in a command file to see if a filename input by the 
user is sistyped or in error. The quotation marks are required 
around the file name. The contents of the parentheses may also 
be a character variable. 


Exaaple: 


IF FILE(*"D: ACCOUNT") 

2? "File is present.” 
ELSE 

?-"File does not exist." 


ENDIF 
19. DATA TYPE FUNCTION a) 


The new function TYPE(<expression>) will yield a one-character 
atring containing either a 'C', 'N', or 'L' for character, 
numeric, or logical respectively. This is useful to determine 
the type of data which has been entered in response to an 
INPUT command. 


20. TRIM FUNCTION 


This new function allow a character string momory variable to 
have its trailing blanks removed. 


Example: 

STORE TRIM(char:var) TO Trim:var 
21. PEEK, POKE, CALL 

PEEK( <address> 5) 

POKE <address>, <byte list> 


SET CALL TO “address> 
CALL <memvar> 


POKE stores a list of values into a specified location in the 
Computer's memory. PEEK is a numeric function that returns 
the value of a specified byte in the computer's memory. Both 
PEEK and POKE use decimal addresses and values. 


Examples: 


STORE PEEK(128) TO X 

STORE 41000 TO I 

2? PEEK(I), PEEK(1+1) 

POKE 45) 041,253p4)556)7p859y 10511412, 13, 14,15, 16,17, 18 


"CALL <meavar>’' will branch processing to the address specified 
in a SET CALL TO <address> command. The address gust be decimal. 
When you reach the called address, the register pair H-L points 
to the first byte of the memory variable; this is the length 
byte. The <menvar> must be a string and may not be lengthened 
while you are putting data into it. Execute a machine language 
return to get back to dBASE. dBASE will nandle saving the 
registers. All machine semory from A4OOH up to the bottom of the 
CP/M BDOS is available, but will be overwritten when a SORT is 
done. It is recommended that a MOVCPM utility be used to create 
protected memory areas for assemly routines above CF/M. 


22. BELL 


The bell ringing which occurs when a field is completely filled 
in full-screen editing can be disabled. Default value is ON. 


SET BELL OFF 
SET BELL ON 


23. DATA CARRY OVER 


While in APPEND, the data from the previous record may be 
carried over by this new command. This is useful when much of 
the data from record to record is the same. Default value is OFF. 


SET CARRY ON 
SET CARRY OFF 


24. COLONS 


The colons that delimit full screen input may be disabled. 
Default is ON. 

SET COLON OFF 

SET COLON ON 


25. INPUT CONFIRMATION 


In full-screen editing, a carriage return or other control character 
ean now be required before leaving the variable field. With this 
feature off the full-screen editor jumps to the next field upon 
filling the previous field. CONFIRM will enhance data entry 
accuracy, especially if BELL is set off. Default is OFF. 

SET CONFIRM ON 

SET CONFIRM OFF 


26. FULL SCREEN DEBUGGING 


DEBUG allows the output from the ECHO and STEP to be sent to 
the printer only. This avoids clutter on the screen and eases 
the debugging of format files or commands files with many @ 


statements. Default is OFF. Ce) 
SET DEBUG ON 


SET DEBUG OFF 
27. PAGE EJECT IN REPORT 


The automatic page EJECT which accompanies the printing of a 
REPORT can be suppressed. Dafault is ON.- 


SET EJECT OFF 
SET EJECT ON 


28. ESCAPE CHARACTER 


The ESCAPE key's ability to abort the progress of a command 
file can be disabled. Default is ON. 


SET ESCAPE OFF 
SET ESCAPE ON 


29. EXACT STRING COMPARISON 


Comparison of character strings in dBASE proceeds only so far as 

the length of the second argument. (E.g. "ABCDEF’ = 'ABC' 1s 

True because the compare length is 3 characters.) It is now Oo 
possible to require that all characters (except trailing blanks) 

to be identical before a true match is indicated. This feature 

affects all string comparison expressions includeing FIND commands 

on indexed files. Default is OFF. 


SET EXACT ON 
SET EXACT OFF 


30. SCREEN INTENSITY 


The dual intensity for full-screen operations can be disabled. 
Default is ON. 

SET INTENSITY OFF 

SET INTENSITY OW 


31. LINKING DATABASE FILES 


The primary and secondary databases can now be linked together 
for display purposes. Any dBASE operation with a <scope> para?- 
meter can then wove through the data files with parallel record 
pointers. The effect is that of a single database with 64 field 
and up to 2000 bytes per record. One must use the 'P.' and 'S.! 
prefixes to distinguish field names that are the same in both 
data files. Default is OFF. 

SET LINKAGE ON 

SET LINKAGE OFF 


32- PAGE MARGIN 


Printed output can be offset from the left side of the paper by 
a pew SET command. <nn> must be a literal between 1 and 254, 


SET MARGIN TO <nn> 
33. DISPLAY/LIST FORMAT 


The format of DISPLAY and LIST commands now appear as if each 
fleld were specified. (I.e. with spaces between numerio and 

character fields, and periods delimiting the logical fields.) 
The format can be switched back to the atavistio way dy a new 
command. Default is OFF. 


SET RAW ON 
SET RAW OFF 


34. FULL SCREEN ERASURE 


The @-command with no GET or SAY clause will clear a line (or 


remainder of a line). E.g. '@ 10,12 ' will erase line 10 
Starting at column 12. 


35. COORDINATE EXPRESSIONS 


The coordinates in '@ <x>,<y> SAY ' commands may now be literals, 
variables, or expressions. The Oth line of the screen (very top) 
is no longer available for screen display formats (1.8. do not 
use '@ 0,<y> SAY <exp> '). 


36. SKIP EXPRESSIONS 


The number of records in ‘SKIP <n>' may now be a literal, a 
variable, or an expression. 


37. EXPRESSIONS IN STR AND $ FUNCTIONS 


Any argument in the $ (SUBSTRING) and STR (STRING) functions 
may now be a literal, a variabie, or an expression. E.g. if 
the memory variables a = 5 and n « 5, then $('ABCDEFGHI,m,n) is 
legal and yields ‘CDEFG'. NOTE: When these functions are used 
to generate a key for indexing a file, they MUST be literals. 


38. SUBSTRING FUNCTION ENHANCED : 


The substring function { $(<string>,<s>,<1>) ] is now more 
flexible. (<s> is substring starting character,<1> is length of 
substring.) If the value given <1> is greater than the length 
of <string> then the substring created takes all the characters 
to the right of the starting character <s>. The length argument 
<1> may also be omitted altogether with simiiar results. 


Examples: 


$C qwerty',4,10) © 'rty' 
$('qwerty',3) = ‘erty! 


39. MACROS RELAXED 


If the ‘'macro' character (usually an ampersand) is NOT followed 
by a valid string memory variable, it is skipped. This allows 
an nds to be used in commands without generating error a) 


a ges. Command lines beginning with '*' (comments) are not 
oheoked for macros. 


40. UNDERSCORE 
The underscore character can now be output to the CRT. 


41. EJECT LIMITED 


The EJECT command dees a physical eject only if a SET PRINT ON 
or SET FORMAT TO PRINT command has been issued. 


42. FIELD LIST IW ? COMMAND 


The 7 on 27? will now display a list of expressions. Previous 
versions of dBASE II would allow only a single expression or 
field. 


43. CREATE COMMAND 


The CREATE command will now accept a fileneme following the verb. 
(I.e. * CREATE <filenamea> '). Otherwise, input of filename will 


be prompted. 

ae, DISPLAY STRUCTURE © 
The DISPLAY STRUCTURE command now totals the number of bytes in 

a single record (includes the one byte overhead for Delete status.) 


4&5. DISPLAY MEMORY 


The DISPLAY MEMORY command now shows the data type of all memory 
variables. It also gives the number of variables defined, and 


total number of bytes consuned. 
46. FULL SCREEW NUMERIC TRUNCATION 


When editing numeric fields with full-screen commands, a carriage 
return will terminate the field at that point, instead of keeping 
any digits that were already there. EXCEPTION: If the cursor is 

positioned over the leftmost character in the field, no truncation 
occurs. You can then skip rapidly through fields without unwanted 


changes. 


47. MUMERIC EDITING 


In full-screen editing, the Space, " ", is now a valid numeric 


character (along with O through 9, decimal point, plus sign, and 
minus sign). "i 
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48. LOGICAL VALIDATION 


Only the characters 'T', 'F', '¥', 'N', or their lowercase 
equivalents will be accepted in full-screen editing or in GETS 
for logical variables. 


49. NEW PICTURE ELEMENT - } 


")' ds a new 'PICTURE' element option. It forces alphabetic 
input into upper case. If characters input are not alphabetic, 
then '1' acts like the 'X' picture element. 


50. PLAIN REPORTS 


"PLAIN’ is a new option available for the REPORT command. The 
output of the page number and date onto a Report can be suppressed. 
Used in conjunction with SET EJECT OFF, it is now possible to 
Surround the Report with other calculations or text. 


Example: 
REPORT FORM DETAIL PLAIN TO PRINT WHILE ACCNT = M:ACCNT 
Example of a command file which generates a multi-level Report: 


USE CUSTOMERS 
SELECT SECONDARY 
USE ORDERS 
SELECT PRIMARY 
SET TALK OFF 
SET FORMAT TO PRINT 
SET PRINT ON 
® sets REPORT cmd to NOT eject page at start of Report 
SET EJECT OFF 
DO WHILE .NOT. EOF 
EJECT 
® form report heading from primary database 
@ 5,1 SAY NAME 
@ 5,40 SAY ‘ACCOUNT #@ : '+STR(ACCOUNT, 6) 
@ 6,1 SAY ADDR 
@€ 7,1 SAY ADDR2 ‘ 
@ 8,1 SAY TRIM(CITY) + ', ' + STATE + ' * + ZIP 
* save account number 
STORE ACCOUNT TO ACNT 
SELECT SECONDARY 
® use REPORT cmd for detail records 
REPORT FORM ORDERS FOR ACCOUNT = ACNT PLAIN 
SELECT PRIMARY 
*® next customer from primary database 
SKIP 
ENDDO 
SET PRINT OFF 
RETURN 
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NOTES 


Additional user data about dBASE II operation not yet 


included in the Manual. 


1. 


The Oth ling on the screen is now reserved for special purposes. 
Therefore, do not issue a format command like '@ 0,<y> SAY <exp>'. 


The REPORT command has a Limit of 24 data fields. 
Under MP/M the QUIT TO <filename> will not operate. 


PACK will not reduce amount of disk space reserved for that 

flle by CP/M. To recover the space, use a COPY TO <filename> 

and then delete the source file. This is a Limitation of the CP/M 
operating system not of dBASE II. 


DO NOT RENAME a file in USE. Generally it is not even a good 
practice to RENAME a file while under command program control. 


The proper syntax for the COPY STRUCTURE command is: 
USE <file> 
COPY STRUCTURE TO <newfiie> 
the '"STRUCTURE' option should immediately follow the verb ‘COPY’. 


When calling a dBASE data file into USE, do not use the '.DBF! 
extension. dBASE adds this extension automatically. 


RECORD OUT OF RANGE 
Record number greater than number of records in database. The 
Record doesn't exist. 


SORTER INTERNAL ERROR, NOTIFY SCDP 
Internal error, contact dealer for support. 


SOURCE AND DESTINATION DATA TYPES ARE DIFFERENT 
e#@ SYNTAX ERROR *#¢ 

SYNTAX ERROR IN FORMAT SPECIFICATION 

SYNTAX ERROR, RE-ENTER 

"TO" PHRASE NOT FOUND 

TOO MANY CHARACTERS 


TOO MANY FILES ARE OPEN 
There is a maximum of 16 files allowed to ba open at one tine. 


TOO MANY MEMORY VARIABLES 
There is a maximum of 64 memory variables. 


TOO MANY RETURNS ENCOUNTERED 
Probably an error in the structure of a coumand file. 


"WITH" PHRASE NOT FOUND 


UNASSIGNED FILE NUMBER 
Internal error, contact dealer for support. 


#®® UNKNOWN COMMAND 


VARIABLE CANNOT BE FOUND 
Heed to create the variable, or check the spelling. 


Oo A 


* 
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A. pwnage 2 


GBASE Il Users Manual 


INDEX 


This index was created so that the user can 
tind the desired information with a minimum of 
effort. Moat items are indexed under several 
headings. The boldface page numbers are the 
best entry points for any topic. These page 


Gelimiter, 88] 
format cheracter, 835 
lowercese-to-_ppercass function, A8d 
uppercase function, 814 
format cherecter, B35 
not equal operator, B17 
record number function, A76, B10 
format chsracter, 835 
substring function, A82, 811 fore 
sbatring | Operator, A38, Add, 
Ta Zesnetian function, A83, B19 
delimiter, 881 
” string delimiter, A35 
perentheses for grouping, A37-A38, 
A102, 816 
command, B95 
comment, A76, Ba 
deleted record function, A76, 813 
format character, B35 
multiplication, A37, A102, B16 
addition, A37, A102, B16 
string concatenation, A4}, Al02, B18 
string concatenation, A4l, A102, 618 
subtraction, A37, B16, Al02 
BASE prompt, Al2, Bl 
"string delimiter, A35 
ANDO. Boolean and, A38, A102, B17 
CMD - command file mame extension, 
A62, A101 
.CMD - command files, 87 
DF - database file name extension, A101 
-OBF - databese files, 85 
FMT - format files, 88 
FRM - report form file name extension, 
AS7, Ald) 
FRM - report form files, 87 
MEM - memory file name extension, A101 
JVEM - memory files, B6 
NOX - index file name extension, A101 
.NOX - index files, Bs A102, 817 
T. Boolean rot, 
as Boolean ar, "nse Atde, 617 
-TXT = text output file, A48, AlOl, 68 
/ division, A37, Al02, B16 
9 format character, B35 
< less than, AZ, A37, Al02, B17 
<> brackets, Aé 
<= less than or equal to, A21, A37, Al02, 817 
© not equal to, A37, A102 
o eale A21, A37, Al02, B17 
= equal to, 1 
> greater than, A2l, A357, Al02, B17 
> ater than or equal to, A21, A537, 
Alb2, B17 
2 command, A69, 822, 850 


Ce 


numbers paint ta the broadest general coverage 
of any topic that showa more then two page 
references. The pages in this index have been 
numbered with A and 8 prefixes to represent the 
two parts of the BASE Tl manual, 


2 command, interactive, A25 
2 spacing lines, A74 
@ command, A69, A70, A88, AG, 822, B32, 
636, B99 
statement, BB 
substring search function, A82, 813, B36 


—A— 


A - format character, B35 
abbreviations for commands, B28 
edbreviations for key B23 
abort of full-screen edit, Alg 
ACCEPT command, A&8, A70, 623, 838, B81 
accounting programs, A96 
accounti me 

exemple, ‘is 

list of files, Al16 

teport forms, A122, Al23 
accounti stem file structure: 


SUPPLIER. DEF, A121 
ACCOUNTS cammand file, A125 
eccuracy, numeric, A7 
addition of data, A26, B21 
addition of fields, A4S 
addition operator, A102 
addition sign, A37, B16 

accounting system, A122 
- definition, 827 
ALTERNATE parameter, 8128 
APPEND: 


cursor control, B25 
exit from, A27 
functions, Al9 
APPEND BLANK command, A70, B77 
APPEND command, 839-845, 893 
adding data, A26, B21 
dot prompt, Al7 
forean data files, A47-A48 
key field changes, AS3 
IFY STRUCTURE, AGS 
norn-dBASE processors, 820 
Tenaming datsbase flelds, A49 
SOF files, 622. 
arithmetic operations, B16 


aritrenatic operators, A102 


automatic summing, AS8 
—sB— 


B*-trees indexes, AIS 
beckspace - celetion of last cheracter, 82 


phrase, 
Boolean feng Ada, Ald2, B17 
Boolean rot, A38, Al02, B17 
Boolean oe ne B17 


Pash 

pe A176, 821-822, BA6 
BROWSE cursor control, 825 
built-in editor, A63 


caret_in documentation, A6 
CARRY command, 883 


CARRY 
CHANGE command, 50 ASO-ASI, 821, BAB 


character - cfonion A33 


cheracter deletion, 82 
character equivalent function, Ag&2 


character SF 
and ACCEP ee 
constant, A33, 
definition, 35 OP 
in expressions, A35 
field, 86 
field in CREATE, 857 


-to-ASCII function, A82 
fumber-to-character function, 614 
classes of commands, B21 


FOR, 855, 8138 


NEXT, 890 


c , database, AZ8 


CLEAR GETS command, A71, B32 
clear screen, A20, A346, 823 
closing of database files, B98 


and OO command, 864 

indentation for readability, A67, A74& 
name extersion, A101 

vested, 87 

planning for, ATT 

procedures in, A67 


subsidiary, A67 
command file examples A72, 8145 
ACCOUNTS, A125 


DEPOSITS, A156 
DEPPRINT, A158 
CEPTRANS, A159 
FINOBELLS, A179 
CGETDATE, A196 
INVMENU, A167 
INVOICES, A169 


SALES TAX, A190 . 
TIMECALC, A193 i 
USETAX, A130 
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commend sumeary, A104 
chenging dsta, ALI 
editing data, All] 
interactive input, Al12 
output, All12 


formar printed 1» AW 


os aus, Ae 


entering data, Al7 
file rairtenence, 822 
forei data files, A47-A4g 
SERT, 883 
eo modifying structure, A45 
fenaming databese fields, Aa9, ASS 


APPEND ree 877 
at_sign command, 
BELL B37 


BLANK in INSERT, A26 
BROWSE, A76, 821, 822, B46 
CANCEL, 823, Ba? 
CARRY, 883 
CHANGE, ASO-AS1, 621, B48 
Clesses of commands, 821 
CLEAR, A76, 832, B49 
CLEAR GETS, A7l, 832 
COLON, 837 
command file, 823 
commands in functional groups, A109 
CONTINCE, A55, B22, B50, 890 
COPY, AG3-Aa9, 851-854 
and “toreign data files, A47-A48, 820 
renaming database fields, A49 
and TOTAL, AS9 
and PACK, 'B96 
creation of files, B21 
file manipulation, B22 


COUNT 822, 823, B55 
CREATE, bst-B39 


how to, Ald 
and INSERT, B83 
start with, A93 


commands, details and usage of: (continued) 
BAS Azo 


, B60 
adding and deleting, fitch; ALG 
datsbese cleanup, A 
editing of data, tied 
file rmerlipulatins, 822 


jes, 
device controlling command, 823 
housekeepit Ata 
and READ, 899 
screen, A20, AX 
file renee 822 
file structure, A109 
FINO, A53, Ae A98, 822, B71, B132 
form feed, 868 
FORMAT TO SCREEN, B37 
GET, A69 
GETS, B32 
GO, A24, B74 
GO BOTTOM, A24 
GO _TOP, Az4 
coTO, Aza, 822, B74 
F, 825, 676 
INDEX, AS2-AS3, A98, B21, 877, 8135 
INPUT, A&8, 474, 823, Bal 
INSERT, A26, B2i, BES 
INTENSITY, B37 ee 
interactive ? command, 
JOIN, A87, 821, 86, B86 
language rules, 828 
length of command, 828 
Une length, command, A7 
UST, Als, A20, 421, A23, Bag 
Uist FILES, 889 
UST MEMORY, A36, BB9 


PAC, Re, AS3, 821, B77, B96 


PRIMARY, AT3  aliaiaes 
ar son ne corre iegectse 
READ, Arb, 8 Bal, 822, 2, B32, B37, B99 
RECALL, Az8, B21, S102 


RELEASE, B106 
RELEASE ALL, A36 

REMARK, 8107 

RENAME, A76é, 822, B108 

REPLACE, Bh oP oe, B09, 8125, By 
REPORT FORM AST 


RESET, A76, 8121 
(Bes Bizz 812 
A&7, A74, B23, B64, B13 
SAVE, 821, 823, B124 
SAVE’ MEMORY TO, B122 
SAY, A69 
B37 
SECONDARY, A7S 
SELECT, ATS, 86, B22, B1ZS 
SELECT’ PRIMARY, B86, B125 
SELECT SECONDARY, 8125 


commands, A63 
A&4-A85, 8128-813 
ALTERNATE, A85, 8152 


FORMAT TO, 832, 899 

FORMAT TO’ PRINT, As4, 832, 834, BLL 

FORMAT TO SCREEN, Asa, B52, B53, 
899, BI 

HEADING, A57 

HEADING TO, A84, B131 

INDEX TO, 6132, B143 

INTENSITY, A85 
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commends, details and ueege ef: (continued) 
SET command: (continued) 


( 

LUNKAGE, A85, 8125 

MARGNN TO, Asa, B133 

RAW, hoa 

SCREEN and ERASE, 870, 899 

STEP, ABS 

TALK, ABA 
SKP, 420, 822, B71, BD* 

SORT, A52, ASB, 822, B155 

eroRe, Ax, B25, 8109, 8157 
SUM, Asa, 822, 823, 


what ‘as 7 , AZ, B22, B30 


concatenation - definition, A&l 
coniuicrs! execution, re 
CONFIRM psrameter, 
CONSOLE parameter, 8128 
constents 

definition, A33, 89 


I, B. 

CONTINUE ommend, ASS 622, B50, 890 

control characters, 

oreo keys in SR Gwse, Bas 

control keys, cursor, 824-825 
control, expressions for, A32 

control, functions for expanding, A80 

conventions, typographic, 

COPY commend, relies “a51-854 
and creation of files, B21 
datsbase transfer, 822 
and PACK, B96 
and SOF files, B20, 822 

copy of dBASE ff disk, A7 

correction error, A20 

COSTBLLS command file, A133 

COSTNeNN) command file, A127 

COSTTIME command file, Al3S 

Sealeeiala command file, A138 

COUNT command, 458, 822, 823, 855 
ory automatic, AS 


oe mep resetting, 8121. 
98, 


filea, standard, 85 
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CREATE commend, Al4, A93, B21, B40, 
857-9, B83 - 

penning an screen, B 

screen for, AlS 
crestion of database, Al4 
creation of files, B21 
creation of structure, B57 
CRT mask layouts, Ag? 
string - definition, B26 
etu-C in EDIT function, A18, Al9 
cts-D in full-screen edit, Al? 
ctl-€ in data entry, Al6 
ctl-€ in full-screen edit, Al9 
cu-G in fulksereen edit, Al9 
ctl-H - deletion of last character, 82 
ctlN, 893 
etl-N in MOOIFY function, Al9 
ctlP - print switch toggle, 82 
ctlP in full-screen edit, Al9 
ctl-Q: 

in APPEND function, Al? 

in deta ertry, Al7 

in EDIT function, A18, AlI 

exit APPEND mode, A27 

in fullscreen edit, Al9 

in MOOIFY, A42, 893 
ctl-R: 

in APPEND function, Al9 

in EDIT function, Al8, Al9 
ctl-S: 

in full-screen edit, Al? 

to stap scrolling, A20 
et!-T in MODIFY function, Al9, B93 
cut 

current-line deletion, 82 

in EDIT function, Al6, Al9 
cetl-V in fullscreen edit, Al9 
ctl-W: 

in BASE editor, A63 

in EDIT, Al 

in EDIT function, Al9 

exit in INSERT or APPEND mode, A27 

In MOODFY, A42, B93 
ctl-X: 

curert-line deletion, B2 

in full-screen edit, Al9 

in MOOFY, Adz 
ctl-Y in MODIFY function, Al? 
currert-record pointer, B134 
currert-line deletion, 82 i 
cursor: 

control keys, 824-825 

controls, full-screen, 894 

movement, Al6 4 

X-Y positioning of terminal, A8 
customization for terminal, A9 


—Ddo— 


data: (continued) 


field name - Cah ention,. BS 
field replacernent, Bl 
files, foreign, AG7 

input checking, A91 

item - definition, 89 
interactive entry, A68 
modification, A50 

record format, B5 

search for, ASS 

standard Torna A47-A48 
summary of, A59 

system format, 820 

type function, ABO 

types, Al4, A99, B6 
tabaset 

basics, A96 

clesrup, A28 


creation of, Alé 
file name extersion, A101 


renseTen system, A96 
modification of structure, Aa2 


organization of, A52, A98 
organization summary, A110 
records per file, A7 
renaming of fleids, AG9 
structure, A93 

databases: 


dal 


combination of, All0 
duplication of, AG3 
joining of, A87 


date, Al2 
DATEO function, B14 
dates, valid, 61 
DATETEST command file, A197 
BAS I : 
distribution diskette, Bl 
files, BS 
commends, A20 
defaults in characteristics, A84 
specifications, A7 
OBMS - definition, A96 
CEBUG command, oan 
DEBUG parameter, 
decimal numbsr, width of field for, B58- 
decinlon: making, 26% 
default chive, , B131 
defaults in form file, 8112 
definitions: 
ALL, 827 
arithmetic operators, A437 
char string, B26 
cheracter, A33 
character string, A33 
character string corstant, A33, B9 
command, 826 
command length, 828 


file, 85, 827 
fie name, AlCl, 627 


deletion of fields, Ads 
OELIMTED: 
clase, B37 
and COPY, Aas 
keyword, 839, 851 
option, 820 
delimiter - definition, 826 


delimiters, 881 
delimiters, string, A35 
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DEPMENU command file, A155 

DEPOSITS command file, AlS6 

CEPPRINT commend file, A158 
command file, A159 


‘o>, 
diskette swap, 8121 


BAS A7 
Se OO eT AD AZS, BE2 


divigion operator, A102 
diysion oy AJ, OS 822, 823, BSA 
DO WHLE 66, BGA 


OO WHLE !oop, B92 
det prompt, Al2 
double quotation mark delimiter, 681 


dual datrbase tion, 8125 
doplicete record remavel, Bb? 


ECHO paremeter, 8128 
€DIT: 
command, AS3, 821, 865 
curser control, 624 
functiona, Al? 


modification of data with, Als 
od sbort of full-screen, AlG 


and’ built-in editor, A63 

commands for, AlL1L 

data, B21 

fulecreen features, Al6, Al9, ABB 
EJECT commend, AS6, A92, B25, 832, 868 


message, 8 
end of file and RETURN, 8123 


AéA, B23, B76 
€OF end-of-file function, A76, 813 
equal to sign, A2J, A37, Al02, B17 


oO 


Oo 


oO 
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ERASE command, 870 
and ia’ command. S52, B70 
or CLEAR CETS, A7l 
clear screen, 420, A36, B23 
housekeeping, A74 
and READ command, 899 
error correction dialog, A8, A20 
error message(s}: 
list of, BIS7 
NO EXPRESSION TO SUM, 82 
SYNTAX ERROR, B82 
UNKNOWN COMMAND, B2 
error recovery examples, B2 


ESC - escape from long-running commands, B3 


ESCAPE key, AS] 
ESCAPE parameter, B129 
EXACT parameter, 8129 
execution, conditional, B76 
execution of dBASE II, Al2, Bl 
execution order of operators, 818 
exit APPEND mode, A27 
exit INSERT mode, A27 
exp - definition, B26 
exp list - definition, 826 
exparsior: 

of commands with expressions, A2] 


of commands with reiational operators, AZ1 


of contrcl, A8d 

expressions): 
in character strings, A35 
definition, B9 
expansion of commands with, A2) 
for selection and control, A32 
in SUM command, A7 

extersions, file name, Al0l, BS 


—Fe 


fields 
addition of, AaS 
characters per, A7 
definition, Alé, A97, B26 
deletion of, AGS 
extraction of variable, 8125 
length, 858 
list - definition, 826 
per record, A7 
size, BE 
field names, 470, A100 
characters for, B28 
specification, Alé 
FIELDS phrase, 886, 8139 
file - definition, 85, 827 
FILE function, A83, B15 
file handling system, A96 
file manipulating commands, 622 
file name(s): 


change, 8108 
definition, A101, 827 
extenaore 
.CMO, A62, Al0l, 87 
Der, Aldi, 85 


file name(s (continued) 
extensions (continued) 
EMT, BS 
FRM, A57, Al0L, B7 
MEM, A101, 86 
NOX, A101, 88 
-TXT, A48, BS, AlDL 
extensions, BS, AlQ1 
Urmited by CP/M, Alé 
file(s: gi 
command, 
cteation of, 821 
CBASE, 85 
FORM, 8112 
operations, A110 
records per, A99 19 
structure commands, A. 
FILES, DISPLAY, A23, B62 
FILES, LIST, A22 
FINO command, AS4, 498, 822, B71, B132 
FINOBILLS command file, A179 
FOR cleuse, 855, 8138 
FOR phrase, 8112 
foreign data files, A&7 
form feed command, B68 
FORM file, B112 
form file - definition, 827 
FORM phrase, 8112 
FORMAT TO SCREEN command, 837 
format(s), B35 
characters, B35 
files, Ba 
printed page, A90 
for report, AS6 
standard data, 839, B51 
formatting, full-screen, ASB 
forms, printing of, A9] 
forms setup, AI] 
FORTRAN, A47 
FORTRAN, interfacing with, 820 
full-screen cursor controls, 894 
full-acreen_ editil 
and BROWSE, 
features, Al9 
and formatting, A&8 
Operation without, Al6é 
full-screen mode: 


cheracter equivalent, A82 
data A80 
DATEO Bla 

definition, 810 

deleted record, A76, 813 
end of file, A76, B13 
FILE, Aa}, 815 

GET, ee Tita 
integer, A80, 

meager to string, AS] 


Arco si (continied) 
length, 
Wist of, 8155 
lowercase to uppercase, A80 
macro substitution, 48} 
fumber to character, 814 
tecord number, A76, B10 
SAY, B35 
string, Bll 
string length, 48] 
string to integer, ASL 
string to numeric, B12 
substring, A82, Bll 
sbstring search, A82, B13 
Alg3 


TRIM, Adi, Aa3, B15, 877 
TYPE, B15 


uppercase, Bl4 
functional groups, commands in, A109 


—-GCG— 


GET command, A88-A89, 832 
GET phrase, 899 : 
CET variables, 837 
GETDATE command file, A196 
es keyword, B49 
BOTTOM commend, A24, B74 
A24, B76 


ero pee B78 

TO command, A24, 822, B74 
FeO, Diy Pe 2 ag AL, ADT, 
Greater then sign, A2), A37, Al02, B17 


eng ee 


hardware environment, A7 
hierarchical OBMS, A97 


ey 3101/12 taser Ag 
command, 
FELSE_ENDF, 6a 
F ELSE, nesting with, Ags 
incor ation for readability, A67, A74 
com AS2 A98, B21, B77, 8135 

index flesh Be” ea AM, BE ETT 

definition, B27 

nema extension, A101 


index key und REPLACE, B109 
index. kay , AT 
index poirter, 8132 
indexed eee 
scvertnes, A’ 
and 1, AS4, B71 
and LOCATE, AS& 
indexes, Bs eee A98 


indexing, 
information retrieval, AS4 
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INPUT command, A68, A74, 823, B81 
input cammands, interacuve, A112 
input data checking, 491 
INSERT commend, 426, 821, B83 
INSERT cursor control, 825 
INSERT mode, exit, A27 
INSTALL and modification, All 
INSTALL. pi im, AB 
installation o' oe wen ait 
INT - tegen. tion, 

837 


SE processors, 820 
INV commend file, Al67 

INVOICES command file, Al69 

TOMENU commend file, A160 

FOPOST commend file, A162 

IOREVEW command file, A165 


Sie 


JOBCOSTS command file, A174 
X command file, A178 
JOIN command, A87, 36, 821, B86 
Joining of databases, A87 
a) ee 
key - definition, 827 
keyworks: 
abbreviations for, 828 
DELIMITED, 839, 851 
GETS, Bag 
lowercase letters for, 828 


uppercese letters for, B28 
key, sort, A98 


it 


last-cheracter G@eletion, 82 
LEN | string length function, 481, B12 
lengthe 


less than or equal to sign, A21, A37, Al02, 817 
less than sign, A21, AST, alge 817 
limitations of BASE 1, 8156 
line deletion, 82 
CE perameter, 8129 


UST command, ALB, A20-A23, B89 
UST PLES command, A22, 849 
UST MEMORY command, A36, B89 
LIST STRUCTURE command, 4\ 
literal - dafinition, 89 
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literal value - definition, A33 MOOFY STRUCTURE command, A45, A93, B93 
LOCATE command, AS-A55, 822, 850, multiple choice in menus, A65 
871, 890 multiple datebases, A7S 
logic field in CREATE, B57 multiplication operator, A102 
logical constant - definition, B9 multiplication sign, A37, B1é 
logical data types, A99 
logical field, Bé — Nam 
logical operations, B16 
logical operator, A4O © - definition, B27 
logical operator precederce, BJS names, fisid, A70, A100 
logical opsraters, A38, Al02, B17 naming of variebles, A36 
logical values, A74 a nested comin files, 87 
Tunning commends, hom, nesting of statements, B29 
LOOP command, A6s, 82, B92 nesting with IFELSE, 65 
foop termination, B69 NEXT clause, 890 
loap, DO , B92 NEXT 1n - definition, B27 
lowercase letters: NO EXPRESSION TO SUM - error message, 82 
for commands, B28 NO FINO - message, AS4 
for field names, A100 non-cBASE processors, interfacing with, 820 
for keywords, B28 non-fullkscreen mode, B&5 
lowercase-to-uppercase function, A80 nat equal to sign, A37, A102, B17 
NOTE commsnd, B95 
—mM— numbert-to-ASCTI function, A82 
number-to-character function, B14 
mecro substitution function, A983, B19 cumber, largest and smallest, A7 
mark for deletion, removal of, 8102 numeric accuracy, A7 
mask layouts, CRT, A89 numeric data types, A99 
memory file mame extersion, A101 numeric expression, adding of, 8138 
memory files, B6 numeric field, B6 
memory variable(sk numeric field in CREATE, 857 
alteration, 8137 
characters for names, B28 —-oOo— 
commands, 823 . 
and COUNT, AS8 Operations), B16 
definition, A34, Bé arithmetic, B16 
as FINO object, B71 comparison, B16 
release of, B106 file, All10 
stoi of, B124 logical, B16 
and , ASB string, 816 
values of, A70 PACK, 860 
memory, DISPLAY, B62 RECALL, B60 
memvar, 838 operators: 
memvar - definition, 827 arithmetic, A102 
memvar list - definition, B27 arithmetic - definition, A37 
menus, multiple choice in, AéS definition, A37 
merge, records, A86 execution order of, 818 
a logical, A38, A102 
ENO OF FE, 890 relational, AlS, A102 
ENO OF LOCATE, B90 string, Ad] 
END RUN GBASE, 898 Option, SOF, 851 
NO FINO, A54 option, TO, B144 
sigron, B1 Organization of databases, A$2, A9B 
Modification of data with CHANGE, A50 output, commands for, A112 
modification of data with EDIT, Al8 
modification of d3ASE TT commands, A321 —P— 
modification of installed BASE 0, All 
MODIFY command, A42, 87, 821 PACK command, A28-A29, A53, 821, 
MOOIFY COMMAND command, A76, 823, B93 B77, B96-B97 
MOOF'Y cursor control, 824 pack operation, B60 


MOOFY functions, Al9 page format, printed, A90 


10 


A 
TALK, 8128 

perentheset for grouping, A37, 438, A102, B16 
ASCAL, A47 

PASCAL, interfacing with, 820 

PAYBLLS command file, Alaa 

PAYEMPS command file, A146 

PAYFIND command file, Al4s 

PAYMENU command file, A139 

PAYROLL command file, Al48 


payroll program process, A96 
Period, dBASE prompt, Al2, 81 


BEFORE, B83 
Bas 
886, 8139 


FIELDS, 
FOR, 8112 
FORM, B1i2 
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printing of forms, A91 

PRINT! command file, A195 
procedures in command files, Aé7 
process, repetition of, A66 
program writing, A62 


for command files, A77 
altel "Aa BI 
prompt, dBASE, 
prompt, dot, Al2, 81 
Pseudocoda, AX 
purge of records, B96 


—Q-—- 


question mark command, AZ5, A69, B30 
it APPEND mode, 427 
command, Al?, A76, B98 
quit INSERT mode, A27 
quotation marks, A35 


70, 821, 822, 832, 837, B99 
RECALL commend, A28, 821, BlO2 


jon, 860 
RECORD n - éefinition, 828 
record(s), A99 


definition, Al4, 
fields per, A7 
format, data, 85 


1 ABE 
mui function, A76, B10 
purge of, 896 
structure, 85 
refinement, top-down & step-wise, A78 


relational D@MS, A97 
relational operators, A1l5, A21, Al02 
relational operators - definition, A37 
relational operators, expansion of commends 
with, A21 
RELEASE ALL command, A36 
REMA command, 
REMARK - comment, A76 
temoval of duplicate record, B139 
RENAME command, A76, 822, 8108 
renaming of database fields, Add 
REBLACE x mand, ase A53, B21, B109, 
com a ’ ’ , 
Bed Meine 
command, . , 822, 
8112-8120, 8139 
REPORT FORM command, A57 
REPORT FORM example, 8114 
report form file name extension, Ald) 
report form files, 87 
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Teport format, ASS 
report farms, fronting system, Al22-4123 
A 


requirements, system, A7, B4 


SALES TAX command file, A190 

sample, command file, A72 

SAVE command, 821, B23, B124 
Y TO commend, B: 


SAY commend, A69 

SAY function, 835 

SAY phrase, A88, A90, B33 

scope - definition, 827 

screen, clear, AZO, A36, B23 
SCREEN command, 837 

screen message for CREATE, ALS 
SCREEN parameter, 8129, 8130 
sealing, ctl-S to stop, A20 


clause, B39, B51 
and soreign data files, A&7-A4g 
option, 820, BS1 
search for data, ASS 
search, sbstring, A38 
pasa commands for, Al12 
SE JARY command, A75 
SELECT command, A75, B6, B22, BLZS 
SELECT PRIMARY B86, B125 
SELECT SECONDARY command, B125 
selection, expressions for, A32 


of commands, A63 
et sarrenends, AB4-ABS, 8128-8133 
ALTERNATE, A&5 
ALTERNATE TO, 6132 
BELL, Aas 
A8, 823, 8125, 8128 

ety RM, Aa5 
CONSOLE, Ag4 
DATE TO, 8132 


DEBUG Ag5S 
OEra Kan B132 
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SET commends: (continued) 
FORMAT TO, 832, 899 
PRINT, AB4, B32, B34, B13] 
, Abs, 852, B33, 899, BL1 
HEADING, AS? 
HEADING TO, A&4, B13) 
INDEX TO, 6132, 8143 
INTENSITY, A85 
UNKAGE, A&85, 8125 
MARGIN TO, A&s4, 8133 
PRINT, A84 
RAW, "Ags 
SCREEN, B129-8130 
STEP, Aa5 
TALK, As 
setup, forma, AI] 
sign-on , Bl 
single crive copying, A7 
single quotation mark delimiter, 88) 
command, A24, 822, B71, BL34 
software omvuironment, A7 
SORT command, A52-A53, A98, 822, BL3S-BL36 
sort key, A98 
specifications, dBASE I, A7 
square brackets, A6, AIS 
standard CP/M files, BS 
standard data format, AQ7-AA8, B39, BS1 
statement - definition, B26 
statement, @, 88 
STEP parameter, 8128 
step-wise refinernent, 478 
Fl of constants, A33 
tates of variables, B124 


SI of variables, A33 
STORE commend, A34, 823, 8109, BL37 
STR integer-to-string function, A81, Bil 
stnng: 
concatenation, A461, A102, B18 
concatenation with blank squash, A102 
corstant - definition, A33 
definition, A33 
delimiters, A35 
function, B11 
length function, A8l 
operations, 816 
operator precedence, 81) 


database, AI 

duplication of, A43 

record, BS 
stubs as partial ma, A7B 
subphrase, USING, 533 
subsidiary command files, A67 


terminals listed in INSTALL, A8 
termination of dBASE I seesion, Al7 
text cutput fle, 68 

text output file name extension, A101 
TIMECALC command file, A19 


8 
TAL commend, AS9, 821, 8199-8140 
TRIM function, AG], A83, 815, B77 
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trunceted commends, 828 
TYPE - data typo function, Add, B15 
typographic conventions, A& 
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updating coratants, A124 

updating data, commends for, All) 

uppercase for fleld names, A100 
function, 814 


rcese letters for keywords, 828 
command, Al7, A20, A21, 822, Blas 
USETAX commend file, A130 


VAL string-to-irteger function, AS] 
VAL string-to-numeric function, B12 
valid dates, examples of, Bl 


veriables: 
commands for using, Alll 
definition, A33, 89 


WAIT command, A68, A74, 823, BZ, B144 
what is... ? command, A25, A69, B22, 330 


word separation, B28 
mes Kees 
X format character, 835 


- error message, B2 
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DBASE II ADDENDUM 


a) aBASE II is preconfigured for use on the Osborne 1 monitor. It 
cannot be reinstalled for a video monitor connected through the 
RS-232 port. 


